(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    278067,       6319]
NotebookOptionsPosition[    265737,       5948]
NotebookOutlinePosition[    266414,       5972]
CellTagsIndexPosition[    266371,       5969]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["VehicleTVC2", "Title",
 Evaluatable->False,
 CellChangeTimes->{{3.576919230158188*^9, 3.576919246851857*^9}}],

Cell[CellGroupData[{

Cell["General", "Section",
 CellChangeTimes->{{3.5719269675877132`*^9, 3.5719269908317537`*^9}}],

Cell[BoxData[
 RowBox[{"<<", "C:\\\\Hopsan\\Compgen\\CompgenNG06.mx"}]], "Input",
 CellChangeTimes->{{3.57692008006717*^9, 3.576920080081172*^9}}],

Cell[BoxData[
 RowBox[{"Off", "[", 
  RowBox[{"General", "::", "\"\<spell1\>\""}], "]"}]], "Input",
 PageWidth->WindowWidth]
}, Open  ]],

Cell[CellGroupData[{

Cell["VehicleTVC", "Section",
 CellChangeTimes->{{3.57691933739091*^9, 3.5769193500741787`*^9}, 
   3.590747007341349*^9}],

Cell[CellGroupData[{

Cell["Defining node variables", "Subsection"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Tafin", "=", "torfin"}], ";", " ", 
  RowBox[{"defin", "=", "thetafin"}], ";", 
  RowBox[{"sdefin", "=", "wfin"}], ";", 
  RowBox[{"cxfin", "=", "cfin"}], ";", 
  RowBox[{"Zxfin", "=", "Zcfin"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tal1", "=", "toral1"}], ";", " ", 
  RowBox[{"del1", "=", "thetaal1"}], ";", 
  RowBox[{"sdel1", "=", "wal1"}], ";", 
  RowBox[{"cxal1", "=", "cal1"}], ";", 
  RowBox[{"Zxal1", "=", "Zcal1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tar1", "=", "torar1"}], ";", " ", 
  RowBox[{"der1", "=", "thetaar1"}], ";", 
  RowBox[{"sder1", "=", "war1"}], ";", 
  RowBox[{"cxar1", "=", "car1"}], ";", 
  RowBox[{"Zxar1", "=", "Zcar1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tal12", "=", "toral12"}], ";", " ", 
  RowBox[{"del12", "=", "thetaal12"}], ";", 
  RowBox[{"sdel12", "=", "wal12"}], ";", 
  RowBox[{"cxal12", "=", "cal12"}], ";", 
  RowBox[{"Zxal12", "=", "Zcal12"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tar12", "=", "torar12"}], ";", " ", 
  RowBox[{"der12", "=", "thetaar12"}], ";", 
  RowBox[{"sder12", "=", "war12"}], ";", 
  RowBox[{"cxar12", "=", "car12"}], ";", 
  RowBox[{"Zxar12", "=", "Zcar12"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tal2", "=", "toral2"}], ";", " ", 
  RowBox[{"del2", "=", "thetaal2"}], ";", 
  RowBox[{"sdel2", "=", "wal2"}], ";", 
  RowBox[{"cxal2", "=", "cal2"}], ";", 
  RowBox[{"Zxal2", "=", "Zcal2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tar2", "=", "torar2"}], ";", " ", 
  RowBox[{"der2", "=", "thetaar2"}], ";", 
  RowBox[{"sder2", "=", "war2"}], ";", 
  RowBox[{"cxar2", "=", "car2"}], ";", 
  RowBox[{"Zxar2", "=", "Zcar2"}], ";"}]}], "Input",
 CellChangeTimes->{{3.51863778446875*^9, 3.518637882203125*^9}, {
  3.518675714921875*^9, 3.5186758090625*^9}, {3.519442425203125*^9, 
  3.519442437984375*^9}, {3.53416646871875*^9, 3.534166479875*^9}, {
  3.534166520890625*^9, 3.53416661540625*^9}, {3.53416664634375*^9, 
  3.5341667288125*^9}, {3.534167389859375*^9, 3.53416742271875*^9}, {
  3.534481455578125*^9, 3.534481467046875*^9}, {3.534481596953125*^9, 
  3.53448161109375*^9}, {3.534481748515625*^9, 3.534481764453125*^9}, {
  3.534481800265625*^9, 3.534481807890625*^9}, {3.534481851265625*^9, 
  3.534481854609375*^9}, {3.534481917046875*^9, 3.534481922234375*^9}, {
  3.534481964609375*^9, 3.534481981078125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dezthrustl", "=", "thetatvclz"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"deythrustl", "=", "thetatvcly"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dezthrustr", "=", "thetatvcrz"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"deythrustr", "=", "thetatvcry"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5680895055122166`*^9, 3.5680895669179444`*^9}, {
  3.568146613782542*^9, 3.5681466172677417`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MechanicCnode", "[", 
   RowBox[{"n_", ",", "position_", ",", "comment_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{"n", ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"f", "[", "n", "]"}], ",", "0.", ",", "Real", ",", 
        "\"\<N\>\"", ",", "\"\<force\>\""}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"x", "[", "n", "]"}], ",", "position", ",", "Real", ",", 
        "\"\<m\>\"", ",", "\"\<position\>\""}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"sx", "[", "n", "]"}], ",", "0.", ",", "Real", ",", 
        "\"\<m/s\>\"", ",", "\"\<speed\>\""}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"cx", "[", "n", "]"}], ",", "0.", ",", "Real", ",", 
        "\"\<N\>\"", ",", "\"\<wave variable\>\""}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Zx", "[", "n", "]"}], ",", "0.", ",", "Real", ",", 
        "\"\<N/m/s\>\"", ",", "\"\<Char. impedancs\>\""}], "}"}]}], "}"}], 
    ",", "\"\<mechanicCnodes\>\"", ",", "comment"}], "}"}]}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Definitions", "Subsection",
 CellChangeTimes->{{3.5769201546146245`*^9, 3.5769201565958223`*^9}}],

Cell[TextData[StyleBox["Derivative[1,0][Atan2][y_,x_]:=\nD1Atan2[y,x];",
 FontFamily->"Times"]], "Input",
 PageWidth->WindowWidth],

Cell[TextData[StyleBox["Derivative[1,0][Atan2L][y_,x_]:=\nD1Atan2L[y,x];",
 FontFamily->"Times"]], "Input",
 PageWidth->WindowWidth],

Cell[TextData[StyleBox["Derivative[0,1][Atan2][y_,x_]:=\nD2Atan2[y,x];",
 FontFamily->"Times"]], "Input",
 PageWidth->WindowWidth],

Cell[TextData[StyleBox["Derivative[0,1][Atan2L][y_,x_]:=\nD2Atan2L[y,x];",
 FontFamily->"Times"]], "Input",
 PageWidth->WindowWidth],

Cell[TextData[StyleBox["Derivative[1][ArcSinL][x_]:=\nDArcSinL[x];",
 FontFamily->"Times"]], "Input",
 PageWidth->WindowWidth],

Cell[TextData[StyleBox["Derivative[1][SecL][x_]:=\nDxSecL[x];\n\n\
Unprotect[Sec];\nSec[x_]:=SecL[x]",
 FontFamily->"Times"]], "Input",
 PageWidth->WindowWidth]
}, Open  ]],

Cell[CellGroupData[{

Cell["Component description", "Subsection",
 Evaluatable->False],

Cell["\<\
This model simulates a 3D model of an airplane.



\
\>", "Text",
 Evaluatable->False,
 CellChangeTimes->{3.5769177474909267`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Parameters and variables used in this component.", "Subsection",
 Evaluatable->False,
 PageBreakAbove->True],

Cell[TextData[StyleBox["The Fortran representation is stored in the file \
\"file\"",
 FontFamily->"Times"]], "Text",
 Evaluatable->False,
 FontFamily->"Times New Roman"],

Cell[CellGroupData[{

Cell["Auxilary functions", "Subsubsection"],

Cell[BoxData[
 RowBox[{
  RowBox[{"RestoreComments", "[", 
   RowBox[{"localParameters_", ",", "localParametersb_"}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"n", "=", 
      RowBox[{"Length", "[", "localParameters", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Print", "[", "n", "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"newPar", "=", 
      RowBox[{"Array", "[", 
       RowBox[{"a", ",", 
        RowBox[{"{", 
         RowBox[{"n", ",", "5"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"newPar", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", 
         RowBox[{"localParameters", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1"}], " ", "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"newPar", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "2"}], "]"}], "]"}], "=", 
         RowBox[{"localParameters", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "2"}], " ", "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"newPar", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "3"}], "]"}], "]"}], "=", "\"\<real\>\""}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"newPar", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "4"}], "]"}], "]"}], "=", 
         RowBox[{"localParametersb", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "4"}], " ", "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"newPar", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "5"}], "]"}], "]"}], "=", 
         RowBox[{"localParametersb", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "5"}], " ", "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"newPar", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ";", 
     RowBox[{"Return", "[", "newPar", "]"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"AddComments1", "[", 
   RowBox[{"localParameters_", ",", "localParametersb_"}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"n", "=", 
      RowBox[{"Length", "[", "localParameters", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Print", "[", "n", "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"newPar", "=", 
      RowBox[{"Array", "[", 
       RowBox[{"a", ",", 
        RowBox[{"{", 
         RowBox[{"n", ",", "5"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"newPar", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", 
         RowBox[{"localParameters", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1"}], " ", "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"newPar", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "2"}], "]"}], "]"}], "=", 
         RowBox[{"localParameters", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "2"}], " ", "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"newPar", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "3"}], "]"}], "]"}], "=", "\"\<real\>\""}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"newPar", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "4"}], "]"}], "]"}], "=", "\"\<\>\""}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"newPar", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "5"}], "]"}], "]"}], "=", 
         RowBox[{"localParametersb", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "2"}], " ", "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"newPar", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ";", 
     RowBox[{"Return", "[", "newPar", "]"}]}]}], "]"}]}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["Declarations", "Subsubsection"],

Cell[TextData[StyleBox["The name of the component  is stored in \
ComponentName.",
 FontFamily->"Times"]], "Text",
 Evaluatable->False,
 FontFamily->"Times New Roman"],

Cell[BoxData[
 RowBox[{"file", "=."}]], "Input",
 CellChangeTimes->{{3.518676388734375*^9, 3.518676390296875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"path", "=", 
   RowBox[{"ToFileName", "[", 
    RowBox[{"{", 
     RowBox[{
     "\"\<C:\>\"", ",", "\"\<HopsanTrunk\>\"", ",", "\"\<HOPSAN++\>\"", ",", 
      "\"\<ComponentLibraries\>\"", ",", "\"\<devLibraries\>\"", ",", 
      "\"\<PettersMatematica\>\""}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5769179601031857`*^9, 3.5769179664408197`*^9}, {
  3.5772930963335133`*^9, 3.5772931094302626`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"path", "=", 
   RowBox[{"ToFileName", "[", 
    RowBox[{"{", 
     RowBox[{
     "\"\<C:\>\"", ",", "\"\<HopsanTrunk\>\"", ",", "\"\<HOPSAN++\>\"", ",", 
      "\"\<ComponentLibraries\>\"", ",", "\"\<defaultLibrary\>\"", ",", 
      "\"\<Special\>\"", ",", "\"\<AeroComponents\>\""}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5769179601031857`*^9, 3.5769179664408197`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Aero\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<VehicleTVC\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"brief", "=", "\"\<Flight dynamics model of aircraft\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentC\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"path", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ResetComponentVariables", "[", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.503905077842648*^9, 3.503905079842648*^9}, {
   3.5039103076641607`*^9, 3.5039103985397425`*^9}, {3.5039164662834997`*^9, 
   3.5039164750178747`*^9}, {3.5039165143772497`*^9, 
   3.5039165189397497`*^9}, {3.5041051675625*^9, 3.504105226359375*^9}, {
   3.507570546125*^9, 3.507570569546875*^9}, {3.507570601046875*^9, 
   3.50757067696875*^9}, 3.507796401609375*^9, {3.507887022343302*^9, 
   3.507887057967846*^9}, {3.5078871702320337`*^9, 3.507887175028847*^9}, {
   3.5082235454098396`*^9, 3.5082235597692146`*^9}, 3.5082237305660896`*^9, {
   3.512921352515625*^9, 3.512921388578125*^9}, {3.513708407234375*^9, 
   3.51370842740625*^9}, 3.513708469203125*^9, {3.5137087323125*^9, 
   3.513708733765625*^9}, {3.513708789984375*^9, 3.5137088199375*^9}, {
   3.513709315953125*^9, 3.5137093166875*^9}, {3.51370934803125*^9, 
   3.513709386875*^9}, 3.515393228397682*^9, 3.515394538846967*^9, {
   3.518675928359375*^9, 3.518675955546875*^9}, {3.518676036671875*^9, 
   3.518676042765625*^9}, {3.5194107155625*^9, 3.519410716421875*^9}, {
   3.534158560625*^9, 3.53415858746875*^9}, 3.5556609494210105`*^9, {
   3.5562486448218775`*^9, 3.556248646009256*^9}, {3.567943950786781*^9, 
   3.5679439525278807`*^9}, {3.5680880162395487`*^9, 3.568088021735647*^9}, 
   3.573164884449534*^9, {3.576917888357012*^9, 3.5769178944456205`*^9}, 
   3.57692018497466*^9, {3.577292840732894*^9, 3.5772928531226025`*^9}, 
   3.5772931142735395`*^9, 3.577451883561363*^9}],

Cell[CellGroupData[{

Cell[BoxData["file"], "Input",
 CellChangeTimes->{{3.5772928829323077`*^9, 3.5772928832943287`*^9}}],

Cell[BoxData["\<\"C:\\\\HopsanTrunk\\\\HOPSAN++\\\\ComponentLibraries\\\\\
defaultLibrary\\\\Special\\\\AeroComponents\\\\AeroVehicleTVC.hpp\"\>"], \
"Output",
 CellChangeTimes->{3.5772928837593555`*^9, 3.5772931222629967`*^9, 
  3.5774519005873632`*^9, 3.579160507524906*^9, 3.5907470214600735`*^9, 
  3.5907470867182198`*^9, 3.5907471198699384`*^9}]
}, Open  ]],

Cell["Alias for some variables", "Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Theta]", "=", "Thetao"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"\[Psi]", "=", "Psi"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"\[Phi]", "=", "Phi"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"\[Alpha]", "=", "Alpha"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"\[Beta]", "=", "Beta"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalLambda]", "=", "Lambda1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]", "=", "Gamma1"}], ";"}]}], "Input"],

Cell[CellGroupData[{

Cell[BoxData["\[Theta]"], "Input",
 FontWeight->"Plain"],

Cell[BoxData["Thetao"], "Output",
 CellChangeTimes->{
  3.51867792809375*^9, {3.51867800696875*^9, 3.518678031921875*^9}, 
   3.518678539328125*^9, 3.518680167046875*^9, 3.518680425984375*^9, 
   3.518680612703125*^9, 3.518680706265625*^9, 3.518862356390625*^9, 
   3.518862399546875*^9, 3.51886280528125*^9, 3.518863329625*^9, 
   3.51940482484375*^9, 3.519404898609375*^9, 3.519410721859375*^9, 
   3.519442228203125*^9, 3.519442354125*^9, 3.519442494328125*^9, 
   3.519442621578125*^9, 3.51944280178125*^9, 3.519443090390625*^9, 
   3.51944315284375*^9, 3.519443634875*^9, 3.519443693875*^9, 
   3.519443760296875*^9, {3.519444184234375*^9, 3.51944420440625*^9}, 
   3.5194447166875*^9, 3.519543648453125*^9, 3.519805575765625*^9, 
   3.51980594821875*^9, 3.51981395771875*^9, 3.519847787875*^9, 
   3.522042509182646*^9, 3.522042662603814*^9, 3.5220426943998756`*^9, 
   3.522042863801789*^9, 3.5220786068125*^9, 3.531823402651251*^9, 
   3.531851270359375*^9, 3.531851339125*^9, 3.53185142375*^9, 
   3.531851789484375*^9, 3.531852603953125*^9, 3.531852667484375*^9, 
   3.531852740203125*^9, 3.531852829453125*^9, 3.531852887203125*^9, 
   3.53185294984375*^9, 3.53185308728125*^9, 3.5318531418125*^9, 
   3.531853279171875*^9, 3.531853354578125*^9, 3.5318534209375*^9, 
   3.53185347196875*^9, 3.53185353065625*^9, 3.531853674796875*^9, 
   3.53185378165625*^9, 3.531853993703125*^9, {3.531854130578125*^9, 
   3.531854158265625*^9}, 3.53185424525*^9, 3.53185428428125*^9, 
   3.5318543705625*^9, 3.53185447746875*^9, 3.531854540765625*^9, 
   3.531855031125*^9, 3.53185704271875*^9, 3.532106950375*^9, 
   3.534158612703125*^9, {3.5341674966875*^9, 3.534167518859375*^9}, 
   3.53416762903125*^9, 3.5341678143125*^9, 3.53416789228125*^9, 
   3.53417433315625*^9, 3.5342185536875*^9, 3.53421859665625*^9, 
   3.534218780796875*^9, 3.534229533078125*^9, 3.53423035390625*^9, 
   3.534230699640625*^9, 3.534415266875*^9, 3.534419005140625*^9, 
   3.534419510921875*^9, 3.53443739446875*^9, 3.5344376803125*^9, 
   3.534438097203125*^9, 3.534485685359375*^9, 3.534486079484375*^9, 
   3.534486147046875*^9, 3.538214450454418*^9, 3.5382200243968697`*^9, 
   3.5382215888845243`*^9, 3.538221882662014*^9, {3.538222189361213*^9, 
   3.53822219468927*^9}, 3.538222505369074*^9, 3.53822287399687*^9, 
   3.538223233384595*^9, 3.538223624067094*^9, 3.538236865453125*^9, 
   3.538237042140625*^9, 3.5382817596865*^9, 3.538283344194621*^9, 
   3.5382841943789606`*^9, 3.5382843075188613`*^9, 3.5382850862482524`*^9, 
   3.5382882703334093`*^9, 3.5382890614122314`*^9, 3.538289948572404*^9, 
   3.5383951371227465`*^9, 3.538395395589842*^9, 3.5383955958229356`*^9, 
   3.538480325473518*^9, 3.538503420390625*^9, 3.5385036878125*^9, 
   3.538503779890625*^9, 3.5387212281415777`*^9, 3.538722694978875*^9, 
   3.5388035642302165`*^9, 3.538805919417714*^9, 3.5388061685098696`*^9, 
   3.5388296370981054`*^9, 3.5388318569673147`*^9, 3.538930126984375*^9, 
   3.5389775449739065`*^9, 3.5389930335904565`*^9, 3.539011390983625*^9, 
   3.539012263343*^9, 3.539016048483625*^9, 3.5411477836482797`*^9, 
   3.541147896131215*^9, 3.541154665061887*^9, 3.541157080537939*^9, 
   3.5483863429482765`*^9, 3.548386383265421*^9, {3.55479790315625*^9, 
   3.55479791846875*^9}, 3.5556619274152503`*^9, 3.5562489699292088`*^9, 
   3.5562493066216793`*^9, 3.5562495510124593`*^9, 3.5562764695899897`*^9, 
   3.5562765890088077`*^9, 3.556296176859375*^9, 3.556296285640625*^9, 
   3.567943965007594*^9, 3.568001770127531*^9, 3.5680020166231785`*^9, 
   3.568002882587572*^9, 3.5680031024865723`*^9, 3.5680284831133375`*^9, 
   3.5680300168236933`*^9, 3.5680311766986685`*^9, 3.568128985533075*^9, {
   3.5681291530406556`*^9, 3.5681291829503665`*^9}, 3.5681292982179594`*^9, 
   3.568143324726419*^9, 3.568143538544649*^9, 3.568143645302755*^9, 
   3.5681438439461164`*^9, 3.568144038023217*^9, 3.568146641588133*^9, 
   3.56814667213188*^9, 3.56814883467657*^9, 3.5681497052603645`*^9, 
   3.5681501258054185`*^9, 3.568182564203701*^9, 3.5681840441265697`*^9, 
   3.5681846845832014`*^9, 3.568185088729317*^9, 3.5681859447122765`*^9, 
   3.5681863891306963`*^9, 3.5682263434536705`*^9, 3.5682264151187696`*^9, 
   3.568226541311987*^9, 3.5682290883206677`*^9, 3.56822958436304*^9, 
   3.5682296925972304`*^9, 3.573162832643177*^9, 3.5731648918909597`*^9, 
   3.5732037677950063`*^9, 3.573205337847808*^9, 3.5732437818658357`*^9, 
   3.5732443419178686`*^9, 3.573244436435275*^9, 3.576920094817645*^9, 
   3.5769202193620987`*^9, 3.577292862105117*^9, 3.5772931223009987`*^9, 
   3.577451900631363*^9, 3.5791605075639086`*^9, 3.590747021491275*^9, 
   3.5907470867650223`*^9, 3.590747119916741*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["M", 
    OverscriptBox[
     RowBox[{"\[EmptySet]", " "}], "."]], "=", "Mdvphi"}], ";"}]], "Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["M", 
    OverscriptBox["\[Theta]", "."]], " ", "=", "Mdvtheta"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   SubscriptBox["M", 
    OverscriptBox["\[Psi]", "."]], "=", "Mdvpsi"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   SubscriptBox["M", 
    OverscriptBox[
     RowBox[{"\[EmptySet]", " "}], "."]], "=."}], ";"}]}], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"q", " ", "=", " ", "qpress"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q0", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q1", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q2", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q3", "=."}], ";"}]}], "Input"],

Cell[BoxData[""], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Declarations of variables", "Subsubsection"],

Cell["\<\
The global output variables are those variables that are of interst outside \
the component.\
\>", "Text",
 Evaluatable->False],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"outputVariables", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "xcg", ",", "0", ",", "double", ",", "\"\<m\>\"", ",", 
        "\"\<Horizontal position 1\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      
      RowBox[{"{", 
       RowBox[{
       "ycg", ",", "0", ",", "double", ",", "\"\<m\>\"", ",", 
        "\"\<Horizontal position 2\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      
      RowBox[{"{", 
       RowBox[{
       "zcg", ",", "0", ",", "double", ",", "\"\<m\>\"", ",", 
        "\"\<Vertical position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "vx", ",", "0", ",", "double", ",", "\"\<m\>\"", ",", 
        "\"\<Horizontal speed 1\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "vy", ",", "0", ",", "double", ",", "\"\<m\>\"", ",", 
        "\"\<Horizontal speed 2\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "vz", ",", "0", ",", "double", ",", "\"\<m\>\"", ",", 
        "\"\<Vertical speed\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\[Psi]", ",", "0", ",", "double", ",", "\"\<rad\>\"", ",", 
        "\"\<Azimuth angle\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\[Theta]", ",", "1.4", ",", "double", ",", "\"\<rad\>\"", ",", 
        "\"\<Elevation angle\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\[Phi]", ",", "0", ",", "double", ",", "\"\<rad\>\"", ",", 
        "\"\<Bank angle\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "Ub", ",", "100", ",", "double", ",", "\"\<m/s\>\"", ",", 
        "\"\<Speed xb-axis\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "Vb", ",", "0", ",", "double", ",", "\"\<m/s\>\"", ",", 
        "\"\<Speed yb-axis\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "Wb", ",", "0", ",", "double", ",", "\"\<m/s\>\"", ",", 
        "\"\<Speed zb-axis\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "Pb", ",", "0", ",", "double", ",", "\"\<rad/s\>\"", ",", 
        "\"\<Angular velocity\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "Qb", ",", "0", ",", "double", ",", "\"\<rad/s\>\"", ",", 
        "\"\<Angular velocity\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "Rb", ",", "0", ",", "double", ",", "\"\<rad/s\>\"", ",", 
        "\"\<Angular velocity\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "q0", ",", "0", ",", "double", ",", "\"\<\>\"", ",", 
        "\"\<quartenion 0\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "q1", ",", "0", ",", "double", ",", "\"\<\>\"", ",", 
        "\"\<quartenion 1\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "q2", ",", "0", ",", "double", ",", "\"\<\>\"", ",", 
        "\"\<quartenion 2\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "q3", ",", "0", ",", "double", ",", "\"\<\>\"", ",", 
        "\"\<quartenion 3\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "AlphaAttack", ",", "0", ",", "double", ",", "\"\<rad\>\"", ",", 
        "\"\<Angle of atack\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "BetaSlip", ",", "0", ",", "double", ",", "\"\<rad/s\>\"", ",", 
        "\"\<Sideslip angle\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "altitude", ",", "0", ",", "double", ",", "\"\<m\>\"", ",", 
        "\"\<altitude\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "gfx", ",", "0", ",", "double", ",", "\"\<m/s^2\>\"", ",", 
        "\"\<g-force in x\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "gfy", ",", "0", ",", "double", ",", "\"\<m/s^2\>\"", ",", 
        "\"\<g-force in y\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "gfz", ",", "0", ",", "double", ",", "\"\<m/s^2\>\"", ",", 
        "\"\<g-force in z\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "CL1", ",", "0", ",", "double", ",", "\"\<\>\"", ",", 
        "\"\<Lift coeff. wing 1\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "Cd1", ",", "0", ",", "double", ",", "\"\<\>\"", ",", 
        "\"\<Drag coeff. wing 1\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "Fax", ",", "0", ",", "double", ",", "\"\<Aero force in z\>\""}], 
       "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "Faz", ",", "0", ",", "double", ",", "\"\<Aero force in x\>\""}], 
       "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\n"}]], "Input",
 CellChangeTimes->{{3.518677965015625*^9, 3.518677965015625*^9}, {
  3.518859664453125*^9, 3.518859695546875*^9}, {3.51885990190625*^9, 
  3.518859910359375*^9}, {3.534218733859375*^9, 3.5342187765*^9}, {
  3.538221842021909*^9, 3.538221871552781*^9}, {3.5388296092073016`*^9, 
  3.5388296270199156`*^9}, {3.577357322106018*^9, 3.5773573406570787`*^9}}],

Cell["\<\
The input variables are those variables that are inputs to the component but  \
are not passed through the nodes..\
\>", "Text",
 Evaluatable->False],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "thrustl", ",", "0.", ",", "double", ",", "\"\<N\>\"", ",", 
       "\"\<Engine thrust\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "thrustr", ",", "0.", ",", "double", ",", "\"\<N\>\"", ",", 
       "\"\<Engine thrust\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "g0", ",", "9.81", ",", "double", ",", "\"\<m/s^2\>\"", ",", 
       "\"\<Gravity acceleration\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Mfuel", ",", "0.", ",", "double", ",", "\"\<kg\>\"", ",", 
       "\"\<Fuel weight\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Mcargo", ",", "0.", ",", "double", ",", "\"\<kg\>\"", ",", 
       "\"\<Cargo weight\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "rho", ",", "1.25", ",", "double", ",", "\"\<kg/m3\>\"", ",", 
       "\"\<Air density\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "vturbx", ",", "0.", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<air turbulence x\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "vturby", ",", "0.", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<air turbulence y\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "vturbz", ",", "0.", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<air turbulence z\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "wturbx", ",", "0.", ",", "double", ",", "\"\<rad/s\>\"", ",", 
       "\"\<air turbulence x\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "wturby", ",", "0.", ",", "double", ",", "\"\<rad/s\>\"", ",", 
       "\"\<air turbulence y\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "wturbz", ",", "0.", ",", "double", ",", "\"\<rad/s\>\"", ",", 
       "\"\<air turbulence z\>\""}], "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.518678097375*^9, 3.518678097375*^9}, {
  3.518859701390625*^9, 3.51885971253125*^9}, {3.51885991175*^9, 
  3.51885991428125*^9}, {3.5220457101110153`*^9, 3.5220457138604493`*^9}, {
  3.522045777956208*^9, 3.522045787615116*^9}, {3.5678802618306117`*^9, 
  3.5678802891861763`*^9}, {3.568089381445217*^9, 3.568089409804217*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"nodeConnections", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"MechanicRotCnode", "[", 
       RowBox[{
       "tvcly", ",", "0.", ",", "0.", ",", 
        "\"\<mechanical node left TVC y\>\""}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"MechanicRotCnode", "[", 
       RowBox[{
       "tvclz", ",", "0.", ",", "0.", ",", 
        "\"\<mechanical node left TVC z\>\""}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"MechanicRotCnode", "[", 
       RowBox[{
       "tvcry", ",", "0.", ",", "0.", ",", 
        "\"\<mechanical node right TVC y\>\""}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"MechanicRotCnode", "[", 
       RowBox[{
       "tvcrz", ",", "0.", ",", "0.", ",", 
        "\"\<mechanical node right TVC z\>\""}], "]"}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.518678117875*^9, 3.518678117875*^9}, {
   3.51885998453125*^9, 3.518859990515625*^9}, {3.519319018984375*^9, 
   3.519319030734375*^9}, {3.534157702359375*^9, 3.53415777759375*^9}, 
   3.534166849125*^9, {3.5341673530625*^9, 3.5341673644375*^9}, 
   3.53448127625*^9, 3.534481376453125*^9, {3.53448148078125*^9, 
   3.534481481796875*^9}, {3.5344816129375*^9, 3.534481614015625*^9}, 
   3.5344817658125*^9, 3.534481809015625*^9, {3.5680883717104263`*^9, 
   3.568088379934249*^9}, {3.5680884595782123`*^9, 3.5680885510113544`*^9}, {
   3.5681043217735496`*^9, 3.5681043257009425`*^9}, 3.5769177725634336`*^9}],

Cell["\<\
Global parameters are parameters that are normally used throughout the whole \
system.\
\>", "Text",
 Evaluatable->False],

Cell["The local parameters are the component specific parameters", "Text",
 Evaluatable->False],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "Cd0b", ",", "0.004", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Drag coef. body\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Ctvc", ",", "0.1", ",", "double", ",", "\"\<m/rad\>\"", ",", 
       "\"\<hinge ciefficient TVC\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "CLalphabh", ",", "2.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<L. slope c. body h\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "CLalphabv", ",", "2.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<L. slope c. body v\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "hthrust0", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<engine vert. pos\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Ix", ",", "1000.", ",", "double", ",", "\"\<kgm2\>\"", ",", 
       "\"\<Inertia moment\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Ixz", ",", "500.", ",", "double", ",", "\"\<kgm2\>\"", ",", 
       "\"\<Inertia moment\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Iy", ",", "3000.", ",", "double", ",", "\"\<kgm2\>\"", ",", 
       "\"\<Inertia moment\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Iz", ",", "3000.", ",", "double", ",", "\"\<kgm2\>\"", ",", 
       "\"\<Inertia moment\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Me", ",", "5000.", ",", "double", ",", "\"\<kg\>\"", ",", 
       "\"\<Empty weight\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Sbh", ",", "5", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<norm. hor. proj. area\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Sbv", ",", "5", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<norm.body vert. proj. area\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xbach", ",", "8.5", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<body ac. hor.\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xbacv", ",", "8.5", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<body ac vert.\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xbcge", ",", "6.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<body cg\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xcargo", ",", "6.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<cargo pos.\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xfuel", ",", "6.", ",", "double", ",", "\"\<m\>\"", ",", "\"\<\>\""}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xeng", ",", "0.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<engine thrust centre position\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "yeng", ",", "0.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<engines off. from center\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "kground", ",", "10000.", ",", "double", ",", "\"\<N/m\>\"", ",", 
       "\"\<Ground stiffness (for limitiation)\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "cground", ",", "1000.", ",", "double", ",", "\"\<Ns/m\>\"", ",", 
       "\"\<Ground damping (for limitiation)\>\""}], "}"}]}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.468168905578125*^9, 3.4681689365*^9}, {
   3.5183287998405657`*^9, 3.5183288007467923`*^9}, {3.51885971821875*^9, 
   3.5188598484375*^9}, {3.518859934609375*^9, 3.51885996934375*^9}, {
   3.519319065046875*^9, 3.51931906684375*^9}, {3.519404881671875*^9, 
   3.51940489046875*^9}, {3.5194432470625*^9, 3.5194433024375*^9}, {
   3.53415801028125*^9, 3.534158041234375*^9}, {3.53416638509375*^9, 
   3.53416639525*^9}, {3.534167284*^9, 3.534167336078125*^9}, {
   3.534225103421875*^9, 3.53422516034375*^9}, {3.534225190671875*^9, 
   3.53422521971875*^9}, {3.53422904878125*^9, 3.534229069421875*^9}, {
   3.534229331609375*^9, 3.53422935996875*^9}, 3.5342294155*^9, {
   3.53422945175*^9, 3.53422945690625*^9}, {3.534229490578125*^9, 
   3.53422950471875*^9}, {3.534229906984375*^9, 3.534229968125*^9}, {
   3.5342305748125*^9, 3.53423060728125*^9}, {3.534485850390625*^9, 
   3.534485965140625*^9}, 3.53448614121875*^9, {3.5388143586297503`*^9, 
   3.5388143599110003`*^9}, {3.5388315138862495`*^9, 
   3.5388315611831245`*^9}, {3.53883166832436*^9, 3.538831750325325*^9}, {
   3.5389298875625*^9, 3.538929925953125*^9}, {3.53892997175*^9, 
   3.538929974984375*^9}, {3.538930008453125*^9, 3.5389300180625*^9}, {
   3.538930105828125*^9, 3.538930109953125*^9}, {3.5412367205852985`*^9, 
   3.5412367461798677`*^9}, {3.54123886388357*^9, 3.5412389185238457`*^9}, 
   3.5412389622579403`*^9, {3.5556604876710105`*^9, 3.5556606532647605`*^9}, 
   3.5556606864366355`*^9, {3.5556607194835105`*^9, 3.5556608648272605`*^9}, {
   3.5556643290013204`*^9, 3.555664364798196*^9}, {3.5560150728577294`*^9, 
   3.5560151053864813`*^9}, {3.556015152195386*^9, 3.5560152019571886`*^9}, {
   3.556015248375499*^9, 3.5560154101755714`*^9}, {3.556015488825781*^9, 
   3.556015642073084*^9}, {3.5560157609195766`*^9, 3.5560158196176057`*^9}, {
   3.5560162376077776`*^9, 3.55601624360701*^9}, {3.5560162803991747`*^9, 
   3.5560163011308956`*^9}, {3.5560170023080587`*^9, 3.556017016291109*^9}, {
   3.556017294563049*^9, 3.5560173265289345`*^9}, {3.556017356979331*^9, 
   3.556017412240004*^9}, {3.556017469500498*^9, 3.5560175234331656`*^9}, {
   3.556043814671875*^9, 3.556043858109375*^9}, {3.556043895984375*^9, 
   3.556043917234375*^9}, {3.556297419109375*^9, 3.556297515078125*^9}, {
   3.5563349457633634`*^9, 3.5563350425833035`*^9}, {3.5563351742779994`*^9, 
   3.5563352195251036`*^9}, {3.56802828821885*^9, 3.5680282982698545`*^9}, {
   3.5680308926842704`*^9, 3.5680309207410755`*^9}, {3.5680310081878195`*^9, 
   3.568031097093709*^9}, {3.5680312457985783`*^9, 3.5680312463196306`*^9}, {
   3.568089196417217*^9, 3.5680892509442167`*^9}, {3.568089299277217*^9, 
   3.568089372629217*^9}, {3.568104372365608*^9, 3.568104401965568*^9}, {
   3.5681436256356297`*^9, 3.568143631526967*^9}, {3.5681438042748475`*^9, 
   3.568143836120669*^9}}],

Cell["The Qnodes are the connections to other components", "Text",
 Evaluatable->False],

Cell["Qnodes = {};", "Input",
 PageWidth->WindowWidth],

Cell["\<\
There are also a constants. Noiter is the number of iterations performed in \
each time step\
\>", "Text",
 Evaluatable->False]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Nomenclature", "Subsection"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["L", "BV"], TraditionalForm]]],
 "         :Transformation matrix, body coordinates to vehicle-carried \
vertical frame"
}], "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Component equations",
 FontFamily->"Times"]], "Subsection",
 Evaluatable->False],

Cell[CellGroupData[{

Cell["Definitions", "Subsubsection",
 Evaluatable->False,
 PageBreakAbove->True],

Cell[BoxData[
 RowBox[{"\[Zeta]", ":=", 
  TagBox[
   RowBox[{"(", GridBox[{
      {"1", 
       RowBox[{
        RowBox[{"Sin", "[", "\[Phi]", "]"}], 
        RowBox[{"Tan", "[", "\[Theta]", "]"}]}], 
       RowBox[{
        RowBox[{"Cos", "[", "\[Phi]", "]"}], 
        RowBox[{"Tan", "[", "\[Theta]", "]"}]}]},
      {"0", 
       RowBox[{"Cos", "[", "\[Phi]", "]"}], 
       RowBox[{"-", 
        RowBox[{"Sin", "[", "\[Phi]", "]"}]}]},
      {"0", 
       RowBox[{
        RowBox[{"Sin", "[", "\[Phi]", "]"}], 
        RowBox[{"SecL", "[", "\[Theta]", "]"}]}], 
       RowBox[{
        RowBox[{"Cos", "[", "\[Phi]", "]"}], 
        RowBox[{"SecL", "[", "\[Theta]", "]"}]}]}
     }], ")"}],
   MatrixForm[#]& ]}]], "Input"],

Cell["\<\
The transformation matrices for transformation from body to earth axis are \
(Etkin (4.5,2)\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["L", "x"], "[", "\[Phi]_", "]"}], ":=", 
  TagBox[
   RowBox[{"(", GridBox[{
      {"1", "0", "0"},
      {"0", 
       RowBox[{"Cos", "[", "\[Phi]", "]"}], 
       RowBox[{"Sin", "[", "\[Phi]", "]"}]},
      {"0", 
       RowBox[{"-", 
        RowBox[{"Sin", "[", "\[Phi]", "]"}]}], 
       RowBox[{"Cos", "[", "\[Phi]", "]"}]}
     }], ")"}],
   MatrixForm[#]& ]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["L", "y"], "[", "\[Theta]_", "]"}], " ", ":=", 
  TagBox[
   RowBox[{"(", GridBox[{
      {
       RowBox[{"Cos", "[", "\[Theta]", "]"}], "0", 
       RowBox[{"-", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]},
      {"0", "1", "0"},
      {
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "0", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}
     }], ")"}],
   MatrixForm[#]& ]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["L", "z"], "[", "\[Psi]_", "]"}], ":=", 
  TagBox[
   RowBox[{"(", GridBox[{
      {
       RowBox[{"Cos", "[", "\[Psi]", "]"}], 
       RowBox[{"Sin", "[", "\[Psi]", "]"}], "0"},
      {
       RowBox[{"-", 
        RowBox[{"Sin", "[", "\[Psi]", "]"}]}], 
       RowBox[{"Cos", "[", "\[Psi]", "]"}], "0"},
      {"0", "0", "1"}
     }], ")"}],
   MatrixForm[#]& ]}]], "Input"],

Cell["\<\
Transformation from vehicle-carried vertical frame to body coordinates can be \
expressed as (Etkin 4.5,3)\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["L", "BV"], ":=", 
  RowBox[{
   RowBox[{
    SubscriptBox["L", "x"], "[", "\[Phi]", "]"}], ".", 
   RowBox[{
    SubscriptBox["L", "y"], "[", "\[Theta]", "]"}], ".", 
   RowBox[{
    SubscriptBox["L", "z"], "[", "\[Psi]", "]"}]}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  SubscriptBox["L", "BV"], " ", "]"}]], "Input"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"Cos", "[", "Psi", "]"}], " ", 
       RowBox[{"Cos", "[", "Thetao", "]"}]}], 
      RowBox[{
       RowBox[{"Cos", "[", "Thetao", "]"}], " ", 
       RowBox[{"Sin", "[", "Psi", "]"}]}], 
      RowBox[{"-", 
       RowBox[{"Sin", "[", "Thetao", "]"}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Cos", "[", "Phi", "]"}]}], " ", 
        RowBox[{"Sin", "[", "Psi", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Cos", "[", "Psi", "]"}], " ", 
        RowBox[{"Sin", "[", "Phi", "]"}], " ", 
        RowBox[{"Sin", "[", "Thetao", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "Phi", "]"}], " ", 
        RowBox[{"Cos", "[", "Psi", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Sin", "[", "Phi", "]"}], " ", 
        RowBox[{"Sin", "[", "Psi", "]"}], " ", 
        RowBox[{"Sin", "[", "Thetao", "]"}]}]}], 
      RowBox[{
       RowBox[{"Cos", "[", "Thetao", "]"}], " ", 
       RowBox[{"Sin", "[", "Phi", "]"}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"Sin", "[", "Phi", "]"}], " ", 
        RowBox[{"Sin", "[", "Psi", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Cos", "[", "Phi", "]"}], " ", 
        RowBox[{"Cos", "[", "Psi", "]"}], " ", 
        RowBox[{"Sin", "[", "Thetao", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Cos", "[", "Psi", "]"}]}], " ", 
        RowBox[{"Sin", "[", "Phi", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Cos", "[", "Phi", "]"}], " ", 
        RowBox[{"Sin", "[", "Psi", "]"}], " ", 
        RowBox[{"Sin", "[", "Thetao", "]"}]}]}], 
      RowBox[{
       RowBox[{"Cos", "[", "Phi", "]"}], " ", 
       RowBox[{"Cos", "[", "Thetao", "]"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.518675986296875*^9, 3.518676205828125*^9, 3.5186762839375*^9, {
   3.51867639475*^9, 3.51867639975*^9}, 3.5186764465625*^9, {
   3.518677207796875*^9, 3.51867724528125*^9}, 3.518677292828125*^9, 
   3.5186775239375*^9, 3.518677600171875*^9, 3.5186778015625*^9, {
   3.518678007109375*^9, 3.5186780320625*^9}, 3.518678540359375*^9, 
   3.518680167234375*^9, 3.518680426203125*^9, 3.51868061290625*^9, 
   3.51868070646875*^9, 3.518862356734375*^9, 3.518862399734375*^9, 
   3.5188628054375*^9, 3.518863329796875*^9, 3.5194048250625*^9, 
   3.51940489875*^9, 3.519410721984375*^9, 3.51944222840625*^9, 
   3.51944235428125*^9, 3.5194424945625*^9, 3.519442621953125*^9, 
   3.5194428019375*^9, 3.519443090515625*^9, 3.519443152984375*^9, 
   3.5194436350625*^9, 3.51944369409375*^9, 3.519443760546875*^9, {
   3.51944418440625*^9, 3.519444204609375*^9}, 3.519444716859375*^9, 
   3.519543649859375*^9, 3.5198055760625*^9, 3.51980594834375*^9, 
   3.51981395784375*^9, 3.519847788296875*^9, 3.522042509448269*^9, 
   3.5220426628381834`*^9, 3.522042694571746*^9, 3.5220428640517826`*^9, 
   3.522078607078125*^9, 3.531823402948124*^9, 3.53185127046875*^9, 
   3.53185133925*^9, 3.531851423875*^9, 3.531851789609375*^9, 
   3.531852604078125*^9, 3.53185266759375*^9, 3.531852740328125*^9, 
   3.5318528295625*^9, 3.531852887328125*^9, 3.531852949953125*^9, 
   3.53185308740625*^9, 3.531853141953125*^9, 3.53185327928125*^9, 
   3.5318533546875*^9, 3.531853421125*^9, 3.531853472078125*^9, 
   3.531853530765625*^9, 3.53185367490625*^9, 3.531853781984375*^9, 
   3.5318539938125*^9, {3.531854130703125*^9, 3.531854158390625*^9}, 
   3.531854245359375*^9, 3.531854284421875*^9, 3.5318543706875*^9, 
   3.53185447759375*^9, 3.531854540890625*^9, 3.531855031234375*^9, 
   3.531857042859375*^9, 3.532106951046875*^9, 3.5341586136875*^9, {
   3.534167497609375*^9, 3.534167519546875*^9}, 3.53416762975*^9, 
   3.534167815171875*^9, 3.534167893109375*^9, 3.534174333953125*^9, 
   3.534218554765625*^9, 3.5342185975625*^9, 3.534218781671875*^9, 
   3.534229534859375*^9, 3.534230354765625*^9, 3.53423070103125*^9, 
   3.534415267609375*^9, 3.534419006015625*^9, 3.53441951196875*^9, 
   3.5344373965*^9, 3.534437681484375*^9, 3.53443809840625*^9, 
   3.534485686453125*^9, 3.5344860804375*^9, 3.53448614796875*^9, 
   3.538214450657544*^9, 3.5382200245531178`*^9, 3.5382215890407724`*^9, 
   3.5382218827713876`*^9, {3.538222189470587*^9, 3.538222194845518*^9}, 
   3.5382225054940777`*^9, 3.538222874137494*^9, 3.538223233525218*^9, 
   3.538223624207717*^9, 3.538236866078125*^9, 3.53823704275*^9, 
   3.538281759858375*^9, 3.5382833443508797`*^9, 3.5382841945039597`*^9, 
   3.538284307690735*^9, 3.538285086388877*^9, 3.5382882705052834`*^9, 
   3.5382890615841055`*^9, 3.538289948775527*^9, 3.538395137482119*^9, 
   3.538395395746091*^9, 3.5383955959948096`*^9, 3.5384803257077327`*^9, 
   3.538503420671875*^9, 3.538503688*^9, 3.538503780046875*^9, 
   3.538721228485338*^9, 3.538722695260125*^9, 3.5388035646520996`*^9, 
   3.538805919558338*^9, 3.538806168712993*^9, 3.5388296374418573`*^9, 
   3.5388318571079416`*^9, 3.538930128296875*^9, 3.5389775451145325`*^9, 
   3.5389930345435815`*^9, 3.539011393014875*^9, 3.539012265343*^9, 
   3.539016050296125*^9, 3.541147783945151*^9, 3.541147896271838*^9, 
   3.541154665249383*^9, 3.541157080662964*^9, 3.5483863431357985`*^9, 
   3.548386383406062*^9, {3.554797903375*^9, 3.554797918609375*^9}, 
   3.555661927743376*^9, 3.556248970944729*^9, 3.5562493071368628`*^9, 
   3.556249551246735*^9, 3.55627646979311*^9, 3.556276589196303*^9, 
   3.556296177*^9, 3.5562962858125*^9, 3.567943965206606*^9, 
   3.5680017703695555`*^9, 3.5680020168351994`*^9, 3.568002882919572*^9, 
   3.568003102667572*^9, 3.568028483258352*^9, 3.568030016985709*^9, 
   3.5680311768776865`*^9, 3.5681289858920956`*^9, {3.5681291535906873`*^9, 
   3.568129183513399*^9}, 3.568129298438972*^9, 3.5681433252084465`*^9, 
   3.568143539023676*^9, 3.568143645706778*^9, 3.568143844493148*^9, 
   3.5681440382892323`*^9, 3.5681466418081455`*^9, 3.5681466723358912`*^9, 
   3.5681488349015827`*^9, 3.568149705456376*^9, 3.5681501260294313`*^9, 
   3.5681825646887283`*^9, 3.5681840445645943`*^9, 3.5681846847942133`*^9, 
   3.5681850889443293`*^9, 3.5681859449522905`*^9, 3.568186389351709*^9, 
   3.568226343708685*^9, 3.5682264156518*^9, 3.568226541590003*^9, 
   3.5682290888076954`*^9, 3.568229584578052*^9, 3.5682296928432446`*^9, 
   3.5731628328741903`*^9, 3.5731648920589695`*^9, 3.5732037679990177`*^9, 
   3.5732053380508194`*^9, 3.5732437820428457`*^9, 3.5732443421068797`*^9, 
   3.5732444366112847`*^9, 3.576920094979662*^9, 3.576920219544117*^9, 
   3.5772928623131285`*^9, 3.5772931224520073`*^9, 3.577451900814363*^9, 
   3.579160507749919*^9, 3.5907470217096863`*^9, 3.5907470869366307`*^9, 
   3.5907471200415473`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(", "\[NoBreak]", GridBox[{
    {
     RowBox[{
      RowBox[{"Cos", "[", "Psi", "]"}], " ", 
      RowBox[{"Cos", "[", "Thetao", "]"}]}], 
     RowBox[{
      RowBox[{"Cos", "[", "Thetao", "]"}], " ", 
      RowBox[{"Sin", "[", "Psi", "]"}]}], 
     RowBox[{"-", 
      RowBox[{"Sin", "[", "Thetao", "]"}]}]},
    {
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Cos", "[", "Phi", "]"}]}], " ", 
       RowBox[{"Sin", "[", "Psi", "]"}]}], "+", 
      RowBox[{
       RowBox[{"Cos", "[", "Psi", "]"}], " ", 
       RowBox[{"Sin", "[", "Phi", "]"}], " ", 
       RowBox[{"Sin", "[", "Thetao", "]"}]}]}], 
     RowBox[{
      RowBox[{
       RowBox[{"Cos", "[", "Phi", "]"}], " ", 
       RowBox[{"Cos", "[", "Psi", "]"}]}], "+", 
      RowBox[{
       RowBox[{"Sin", "[", "Phi", "]"}], " ", 
       RowBox[{"Sin", "[", "Psi", "]"}], " ", 
       RowBox[{"Sin", "[", "Thetao", "]"}]}]}], 
     RowBox[{
      RowBox[{"Cos", "[", "Thetao", "]"}], " ", 
      RowBox[{"Sin", "[", "Phi", "]"}]}]},
    {
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[", "Phi", "]"}], " ", 
       RowBox[{"Sin", "[", "Psi", "]"}]}], "+", 
      RowBox[{
       RowBox[{"Cos", "[", "Phi", "]"}], " ", 
       RowBox[{"Cos", "[", "Psi", "]"}], " ", 
       RowBox[{"Sin", "[", "Thetao", "]"}]}]}], 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Cos", "[", "Psi", "]"}]}], " ", 
       RowBox[{"Sin", "[", "Phi", "]"}]}], "+", 
      RowBox[{
       RowBox[{"Cos", "[", "Phi", "]"}], " ", 
       RowBox[{"Sin", "[", "Psi", "]"}], " ", 
       RowBox[{"Sin", "[", "Thetao", "]"}]}]}], 
     RowBox[{
      RowBox[{"Cos", "[", "Phi", "]"}], " ", 
      RowBox[{"Cos", "[", "Thetao", "]"}]}]}
   }], "\[NoBreak]", ")"}]], "DisplayFormula",
 FontSize->7],

Cell["This can also be expressed using quartenions", "Text"],

Cell["Version according to Wikipedia", "Text",
 CellChangeTimes->{{3.5682109987110014`*^9, 3.568211008899584*^9}}],

Cell[BoxData[
 RowBox[{
  SubscriptBox["L", "BV"], ":=", 
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        SuperscriptBox["q0", "2"], "+", 
        SuperscriptBox["q1", "2"], "-", 
        SuperscriptBox["q2", "2"], "-", 
        SuperscriptBox["q3", "2"]}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q1", " ", "q2"}], "-", 
          RowBox[{"q0", " ", "q3"}]}], ")"}]}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q0", " ", "q2"}], "+", 
          RowBox[{"q1", " ", "q3"}]}], ")"}]}]},
      {
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q1", " ", "q2"}], "+", 
          RowBox[{"q0", " ", "q3"}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["q0", "2"], "-", 
        SuperscriptBox["q1", "2"], "+", 
        SuperscriptBox["q2", "2"], "-", 
        SuperscriptBox["q3", "2"]}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "q0"}], " ", "q1"}], "+", 
          RowBox[{"q2", " ", "q3"}]}], ")"}]}]},
      {
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "q0"}], " ", "q2"}], "+", 
          RowBox[{"q1", " ", "q3"}]}], ")"}]}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q0", " ", "q1"}], "+", 
          RowBox[{"q2", " ", "q3"}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["q0", "2"], "-", 
        SuperscriptBox["q1", "2"], "-", 
        SuperscriptBox["q2", "2"], "+", 
        SuperscriptBox["q3", "2"]}]}
     }], "\[NoBreak]", ")"}],
   MatrixForm[#]& ]}]], "EquationNumbered",
 CellChangeTimes->{{3.568210926600877*^9, 3.5682109897504888`*^9}}],

Cell[BoxData[
 RowBox[{
  SubscriptBox["L", "BV"], ":=", 
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        SuperscriptBox["q0", "2"], "+", 
        SuperscriptBox["q1", "2"], "-", 
        SuperscriptBox["q2", "2"], "-", 
        SuperscriptBox["q3", "2"]}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q1", " ", "q2"}], "+", 
          RowBox[{"q0", " ", "q3"}]}], ")"}]}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "q0"}], " ", "q2"}], "+", 
          RowBox[{"q1", " ", "q3"}]}], ")"}]}]},
      {
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q1", " ", "q2"}], "-", 
          RowBox[{"q0", " ", "q3"}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["q0", "2"], "-", 
        SuperscriptBox["q1", "2"], "+", 
        SuperscriptBox["q2", "2"], "-", 
        SuperscriptBox["q3", "2"]}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q0", " ", "q1"}], "+", 
          RowBox[{"q2", " ", "q3"}]}], ")"}]}]},
      {
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q0", " ", "q2"}], "+", 
          RowBox[{"q1", " ", "q3"}]}], ")"}]}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "q0"}], " ", "q1"}], "+", 
          RowBox[{"q2", " ", "q3"}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["q0", "2"], "-", 
        SuperscriptBox["q1", "2"], "-", 
        SuperscriptBox["q2", "2"], "+", 
        SuperscriptBox["q3", "2"]}]}
     }], "\[NoBreak]", ")"}],
   MatrixForm[#]& ]}]], "Input"],

Cell["\<\
where the quartenions can be expressed as below. The inital values of the \
quartenions are caluclated using these expressions\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"initialExpressions", 
  StyleBox["=",
   FontFamily->"Times"], 
  RowBox[{
   StyleBox["{",
    FontFamily->"Times"], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"q0", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", 
         FractionBox["\[Phi]", "2"], "]"}], 
        RowBox[{"Cos", "[", 
         FractionBox["\[Theta]", "2"], "]"}], 
        RowBox[{"Cos", "[", 
         FractionBox["\[Psi]", "2"], "]"}]}], "+", 
       RowBox[{
        RowBox[{"Sin", "[", 
         FractionBox["\[Phi]", "2"], "]"}], 
        RowBox[{"Sin", "[", 
         FractionBox["\[Theta]", "2"], "]"}], 
        RowBox[{"Sin", "[", 
         FractionBox["\[Psi]", "2"], "]"}]}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"q1", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Sin", "[", 
         FractionBox["\[Phi]", "2"], "]"}], 
        RowBox[{"Cos", "[", 
         FractionBox["\[Theta]", "2"], "]"}], 
        RowBox[{"Cos", "[", 
         FractionBox["\[Psi]", "2"], "]"}]}], "-", 
       RowBox[{
        RowBox[{"Cos", "[", 
         FractionBox["\[Phi]", "2"], "]"}], 
        RowBox[{"Sin", "[", 
         FractionBox["\[Theta]", "2"], "]"}], 
        RowBox[{"Sin", "[", 
         FractionBox["\[Psi]", "2"], "]"}]}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"q2", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", 
         FractionBox["\[Phi]", "2"], "]"}], 
        RowBox[{"Sin", "[", 
         FractionBox["\[Theta]", "2"], "]"}], 
        RowBox[{"Cos", "[", 
         FractionBox["\[Psi]", "2"], "]"}]}], "+", 
       RowBox[{
        RowBox[{"Sin", "[", 
         FractionBox["\[Phi]", "2"], "]"}], 
        RowBox[{"Cos", "[", 
         FractionBox["\[Theta]", "2"], "]"}], 
        RowBox[{"Sin", "[", 
         FractionBox["\[Psi]", "2"], "]"}]}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"q3", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", 
         FractionBox["\[Phi]", "2"], "]"}], 
        RowBox[{"Cos", "[", 
         FractionBox["\[Theta]", "2"], "]"}], 
        RowBox[{"Sin", "[", 
         FractionBox["\[Psi]", "2"], "]"}]}], "-", 
       RowBox[{
        RowBox[{"Sin", "[", 
         FractionBox["\[Phi]", "2"], "]"}], 
        RowBox[{"Sin", "[", 
         FractionBox["\[Theta]", "2"], "]"}], 
        RowBox[{"Cos", "[", 
         FractionBox["\[Psi]", "2"], "]"}]}]}]}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.51984772459375*^9, 3.51984776115625*^9}, {
  3.556249439413949*^9, 3.556249462394224*^9}, {3.556274250560241*^9, 
  3.5562742520134315`*^9}, {3.556276577524727*^9, 3.5562765819933624`*^9}, {
  3.556296109875*^9, 3.55629611140625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"q0", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Cos", "[", 
        FractionBox["Phi", "2"], "]"}], " ", 
       RowBox[{"Cos", "[", 
        FractionBox["Psi", "2"], "]"}], " ", 
       RowBox[{"Cos", "[", 
        FractionBox["Thetao", "2"], "]"}]}], "+", 
      RowBox[{
       RowBox[{"Sin", "[", 
        FractionBox["Phi", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["Psi", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["Thetao", "2"], "]"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"q1", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Cos", "[", 
        FractionBox["Psi", "2"], "]"}], " ", 
       RowBox[{"Cos", "[", 
        FractionBox["Thetao", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["Phi", "2"], "]"}]}], "-", 
      RowBox[{
       RowBox[{"Cos", "[", 
        FractionBox["Phi", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["Psi", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["Thetao", "2"], "]"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"q2", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Cos", "[", 
        FractionBox["Thetao", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["Phi", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["Psi", "2"], "]"}]}], "+", 
      RowBox[{
       RowBox[{"Cos", "[", 
        FractionBox["Phi", "2"], "]"}], " ", 
       RowBox[{"Cos", "[", 
        FractionBox["Psi", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["Thetao", "2"], "]"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"q3", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Cos", "[", 
        FractionBox["Phi", "2"], "]"}], " ", 
       RowBox[{"Cos", "[", 
        FractionBox["Thetao", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["Psi", "2"], "]"}]}], "-", 
      RowBox[{
       RowBox[{"Cos", "[", 
        FractionBox["Psi", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["Phi", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["Thetao", "2"], "]"}]}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.556249466390794*^9, 3.5562495512935905`*^9, 3.556276469886857*^9, 
   3.5562765892431765`*^9, 3.556296177046875*^9, 3.556296285875*^9, 
   3.567943965239607*^9, 3.568001770421561*^9, 3.568002016879204*^9, 
   3.5680028831115723`*^9, 3.568003102714572*^9, 3.5680284832973557`*^9, 
   3.5680300170197124`*^9, 3.568031176916691*^9, 3.5681289860511045`*^9, {
   3.5681291536676917`*^9, 3.568129183574402*^9}, 3.568129298509976*^9, 
   3.5681433252754507`*^9, 3.568143539080679*^9, 3.568143645774782*^9, 
   3.5681438445561514`*^9, 3.568144038345236*^9, 3.568146641844147*^9, 
   3.5681466723758936`*^9, 3.5681488349445853`*^9, 3.5681497055023785`*^9, 
   3.568150126092435*^9, 3.5681825647427316`*^9, 3.568184044643599*^9, 
   3.568184684850217*^9, 3.5681850889803314`*^9, 3.568185945200305*^9, 
   3.5681863893967113`*^9, 3.568226344005702*^9, 3.568226415777807*^9, 
   3.5682265418670187`*^9, 3.5682290888606987`*^9, 3.5682295846190543`*^9, 
   3.568229692880247*^9, 3.573162832916193*^9, 3.573164892090971*^9, 
   3.5732037680370197`*^9, 3.573205338092822*^9, 3.5732437820758476`*^9, 
   3.573244342141882*^9, 3.5732444366452866`*^9, 3.576920095011665*^9, 
   3.576920219594122*^9, 3.577292862361131*^9, 3.5772931224870095`*^9, 
   3.577451900851363*^9, 3.5791605077929215`*^9, 3.5907470217564883`*^9, 
   3.590747086999034*^9, 3.590747120072749*^9}]
}, Open  ]],

Cell["\<\
Conversly the total transformation matrix from body coordinates to \
vehicle-carried vertical frame is thus:\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["L", "VB"], " ", ":=", 
  RowBox[{"Transpose", "[", 
   SubscriptBox["L", "BV"], "]"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  SubscriptBox["L", "VB"], " ", "]"}]], "Input"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       SuperscriptBox["q0", "2"], "+", 
       SuperscriptBox["q1", "2"], "-", 
       SuperscriptBox["q2", "2"], "-", 
       SuperscriptBox["q3", "2"]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q1", " ", "q2"}], "-", 
         RowBox[{"q0", " ", "q3"}]}], ")"}]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q0", " ", "q2"}], "+", 
         RowBox[{"q1", " ", "q3"}]}], ")"}]}]},
     {
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q1", " ", "q2"}], "+", 
         RowBox[{"q0", " ", "q3"}]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["q0", "2"], "-", 
       SuperscriptBox["q1", "2"], "+", 
       SuperscriptBox["q2", "2"], "-", 
       SuperscriptBox["q3", "2"]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "q0"}], " ", "q1"}], "+", 
         RowBox[{"q2", " ", "q3"}]}], ")"}]}]},
     {
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "q0"}], " ", "q2"}], "+", 
         RowBox[{"q1", " ", "q3"}]}], ")"}]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q0", " ", "q1"}], "+", 
         RowBox[{"q2", " ", "q3"}]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["q0", "2"], "-", 
       SuperscriptBox["q1", "2"], "-", 
       SuperscriptBox["q2", "2"], "+", 
       SuperscriptBox["q3", "2"]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5186759864375*^9, 3.518676205921875*^9, 3.518676284*^9, {
   3.51867639484375*^9, 3.5186763998125*^9}, 3.518676446640625*^9, {
   3.518677207875*^9, 3.51867724534375*^9}, 3.518677292875*^9, 3.518677524*^9,
    3.518677600421875*^9, 3.518677801640625*^9, {3.51867800715625*^9, 
   3.51867803209375*^9}, 3.5186785405625*^9, 3.518680167296875*^9, 
   3.518680426265625*^9, 3.51868061296875*^9, 3.51868070653125*^9, 
   3.51886235678125*^9, 3.51886239978125*^9, 3.518862805484375*^9, 
   3.518863329859375*^9, 3.519404825109375*^9, 3.51940489878125*^9, 
   3.51941072203125*^9, 3.519442228453125*^9, 3.519442354328125*^9, 
   3.51944249465625*^9, 3.519442622140625*^9, 3.519442801984375*^9, 
   3.519443090546875*^9, 3.51944315303125*^9, 3.519443635109375*^9, 
   3.51944369415625*^9, 3.51944376059375*^9, {3.519444184453125*^9, 
   3.51944420465625*^9}, 3.519444716890625*^9, 3.5195436499375*^9, 
   3.5198055763125*^9, 3.519805948375*^9, 3.519813957875*^9, 
   3.519847788390625*^9, 3.522042509510769*^9, 3.5220426628850574`*^9, 
   3.52204269461862*^9, 3.5220428640986557`*^9, 3.522078607359375*^9, 
   3.531823403276247*^9, 3.5318512705*^9, 3.53185133928125*^9, 
   3.53185142390625*^9, 3.531851789640625*^9, 3.531852604125*^9, 
   3.531852667625*^9, 3.531852740359375*^9, 3.53185282959375*^9, 
   3.531852887359375*^9, 3.531852949984375*^9, 3.5318530874375*^9, 
   3.53185314196875*^9, 3.531853279375*^9, 3.53185335471875*^9, 
   3.53185342115625*^9, 3.531853472125*^9, 3.53185353078125*^9, 
   3.5318536749375*^9, 3.531853782015625*^9, 3.53185399384375*^9, {
   3.53185413071875*^9, 3.531854158421875*^9}, 3.531854245390625*^9, 
   3.531854284453125*^9, 3.53185437071875*^9, 3.531854477625*^9, 
   3.531854540921875*^9, 3.531855031265625*^9, 3.531857042890625*^9, 
   3.532106951203125*^9, 3.534158613859375*^9, {3.534167497796875*^9, 
   3.534167519703125*^9}, 3.53416762990625*^9, 3.53416781534375*^9, 
   3.53416789328125*^9, 3.534174334109375*^9, 3.534218555140625*^9, 
   3.534218597796875*^9, 3.534218781828125*^9, 3.53422953503125*^9, 
   3.53423035490625*^9, 3.534230701640625*^9, 3.5344152679375*^9, 
   3.53441900615625*^9, 3.53441951215625*^9, 3.534437396828125*^9, 
   3.534437682125*^9, 3.5344380990625*^9, 3.534485686625*^9, 
   3.5344860805625*^9, 3.534486148109375*^9, 3.538214450720045*^9, 
   3.538220024693741*^9, 3.5382215890876465`*^9, 3.538221882802637*^9, {
   3.5382221895018363`*^9, 3.538222194892392*^9}, 3.538222505525329*^9, 
   3.538222874184369*^9, 3.5382232335564675`*^9, 3.538223624254592*^9, 
   3.53823686628125*^9, 3.53823704315625*^9, 3.53828175990525*^9, 
   3.5382833443977566`*^9, 3.5382841945508347`*^9, 3.53828430773761*^9, 
   3.538285086435751*^9, 3.538288270552158*^9, 3.5382890616466045`*^9, 
   3.538289948822402*^9, 3.5383951375289936`*^9, 3.538395395777341*^9, 
   3.538395596026059*^9, 3.5384803257545757`*^9, 3.53850342071875*^9, 
   3.538503688046875*^9, 3.53850378009375*^9, 3.5387212287822227`*^9, 
   3.53872269533825*^9, 3.5388035647302265`*^9, 3.5388059195895877`*^9, 
   3.5388061687598677`*^9, 3.5388296374731073`*^9, 3.538831857139192*^9, 
   3.538930129015625*^9, 3.5389775451457825`*^9, 3.5389930346842065`*^9, 
   3.539011393233625*^9, 3.539012265546125*^9, 3.5390160505305*^9, 
   3.5411477840388994`*^9, 3.541147896318712*^9, 3.541154665311882*^9, 
   3.5411570807098484`*^9, 3.548386343198305*^9, 3.548386383468569*^9, {
   3.554797903421875*^9, 3.554797918671875*^9}, 3.5556619278527503`*^9, 
   3.556248971007223*^9, 3.556249307199309*^9, 3.5562495513404455`*^9, 
   3.5562764699493556`*^9, 3.556276589305675*^9, 3.556296177109375*^9, 
   3.55629628590625*^9, 3.5679439652796097`*^9, 3.568001770459564*^9, 
   3.5680020169482107`*^9, 3.568002883173572*^9, 3.568003102757572*^9, 
   3.5680284833353596`*^9, 3.5680300170537157`*^9, 3.5680311769606953`*^9, 
   3.5681289861541104`*^9, {3.5681291537256947`*^9, 3.568129183653407*^9}, 
   3.5681292985699797`*^9, 3.5681433253384542`*^9, 3.5681435391266823`*^9, 
   3.5681436458377857`*^9, 3.5681438445941534`*^9, 3.568144038402239*^9, 
   3.5681466420591593`*^9, 3.5681466724228964`*^9, 3.568148834982588*^9, 
   3.5681497055473814`*^9, 3.5681501261694393`*^9, 3.568182564800735*^9, 
   3.5681840446886015`*^9, 3.56818468490222*^9, 3.568185089038335*^9, 
   3.5681859452463074`*^9, 3.568186389611724*^9, 3.5682263440647054`*^9, 
   3.568226415844811*^9, 3.5682265419310226`*^9, 3.5682290889177017`*^9, 
   3.568229584657057*^9, 3.5682296929522505`*^9, 3.5731628329601955`*^9, 
   3.5731648921229725`*^9, 3.573203768072022*^9, 3.5732053381328244`*^9, 
   3.57324378210985*^9, 3.5732443421758833`*^9, 3.5732444366782885`*^9, 
   3.576920095041668*^9, 3.5769202196391263`*^9, 3.5772928624061337`*^9, 
   3.577293122527012*^9, 3.577451900885363*^9, 3.5791605078289237`*^9, 
   3.590747021803291*^9, 3.5907470870458364`*^9, 3.5907471201039505`*^9}]
}, Open  ]],

Cell[TextData[{
 "When Euler angles are used, the state vector ",
 StyleBox["stateVariables",
  FontSlant->"Italic"],
 " of the system is defined as:"
}], "Text",
 Evaluatable->False],

Cell[BoxData[
 RowBox[{
  RowBox[{"stateVariables", "=", 
   RowBox[{"{", 
    RowBox[{
    "Ub", ",", "Vb", ",", "Wb", ",", "Pb", ",", "Qb", ",", "Rb", ",", 
     "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "xcg", ",", "ycg", ",", 
     "zcg"}], "}"}]}], ";"}]], "DisplayFormula"],

Cell["When quartenions are used it instead becomes:", "Text"],

Cell["\<\
systemVariables = {Ub,Vb,Wb,Pb,Qb,Rb,q0,q1,q2,q3,xcg,ycg,zcg};\
\>", "Input",
 PageWidth->WindowWidth,
 CellChangeTimes->{{3.51867773915625*^9, 3.518677740046875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"variableLimits", "=", 
  RowBox[{"{", 
   RowBox[{"xcg", ",", "0.", ",", "10000000."}], "}"}]}]], "Input",
 CellChangeTimes->{{3.460036081859375*^9, 3.460036120125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"xcg", ",", "0.`", ",", "1.`*^7"}], "}"}]], "Output",
 CellChangeTimes->{
  3.51867598646875*^9, 3.51867620596875*^9, 3.518676284015625*^9, {
   3.518676394875*^9, 3.51867639984375*^9}, 3.518676446671875*^9, {
   3.518677207921875*^9, 3.51867724540625*^9}, 3.518677292890625*^9, 
   3.518677524046875*^9, 3.518677600453125*^9, 3.518677801671875*^9, {
   3.5186780071875*^9, 3.518678032125*^9}, 3.5186785406875*^9, 
   3.518680167328125*^9, 3.5186804263125*^9, 3.518680613*^9, 
   3.5186807065625*^9, 3.5188623568125*^9, 3.5188623998125*^9, 
   3.518862805515625*^9, 3.518863329890625*^9, 3.51940482515625*^9, 
   3.5194048988125*^9, 3.5194107220625*^9, 3.519442228484375*^9, 
   3.519442354359375*^9, 3.51944249484375*^9, 3.5194426221875*^9, 
   3.519442802015625*^9, 3.51944309059375*^9, 3.519443153046875*^9, 
   3.519443635140625*^9, 3.5194436941875*^9, 3.519443760640625*^9, {
   3.519444184484375*^9, 3.519444204703125*^9}, 3.519444716921875*^9, 
   3.51954365*^9, 3.519805576328125*^9, 3.51980594840625*^9, 
   3.51981395790625*^9, 3.519847788453125*^9, 3.522042509542019*^9, 
   3.5220426629163065`*^9, 3.522042694649869*^9, 3.5220428641455297`*^9, 
   3.52207860740625*^9, 3.531823403307496*^9, 3.531851270515625*^9, 
   3.531851339296875*^9, 3.531851423921875*^9, 3.53185178965625*^9, 
   3.531852604140625*^9, 3.531852667640625*^9, 3.531852740375*^9, 
   3.531852829609375*^9, 3.531852887375*^9, 3.53185295*^9, 
   3.531853087453125*^9, 3.531853141984375*^9, 3.531853279390625*^9, 
   3.531853354734375*^9, 3.531853421171875*^9, 3.531853472140625*^9, 
   3.531853530796875*^9, 3.531853674953125*^9, 3.53185378203125*^9, 
   3.531853993859375*^9, {3.53185413075*^9, 3.531854158453125*^9}, 
   3.53185424540625*^9, 3.53185428446875*^9, 3.531854370734375*^9, 
   3.531854477640625*^9, 3.5318545409375*^9, 3.53185503128125*^9, 
   3.531857042921875*^9, 3.5321069513125*^9, 3.53415861396875*^9, {
   3.534167498046875*^9, 3.534167519796875*^9}, 3.53416763*^9, 
   3.534167815640625*^9, 3.534167893390625*^9, 3.5341743341875*^9, 
   3.534218555234375*^9, 3.534218599890625*^9, 3.53421878190625*^9, 
   3.534229535125*^9, 3.534230354984375*^9, 3.53423070178125*^9, 
   3.5344152680625*^9, 3.53441900625*^9, 3.534419512265625*^9, 
   3.534437396984375*^9, 3.534437682296875*^9, 3.534438099234375*^9, 
   3.53448568675*^9, 3.534486080640625*^9, 3.5344861481875*^9, 
   3.538214450751295*^9, 3.538220024740616*^9, 3.5382215891345215`*^9, 
   3.538221882818262*^9, {3.5382221895174613`*^9, 3.538222194923642*^9}, 
   3.53822250555658*^9, 3.5382228742156186`*^9, 3.538223233587717*^9, 
   3.5382236242702165`*^9, 3.538236866390625*^9, 3.53823704328125*^9, 
   3.5382817599365*^9, 3.5382833444133825`*^9, 3.538284194582084*^9, 
   3.53828430776886*^9, 3.538285086451376*^9, 3.5382882705834074`*^9, 
   3.5382890616778545`*^9, 3.5382899488536515`*^9, 3.5383951375446186`*^9, 
   3.538395395808591*^9, 3.538395596057309*^9, 3.538480325785804*^9, 
   3.538503420765625*^9, 3.538503688078125*^9, 3.538503780109375*^9, 
   3.5387212288134737`*^9, 3.538722695385125*^9, 3.5388035648864794`*^9, 
   3.5388059196208377`*^9, 3.5388061687754927`*^9, 3.5388296374887323`*^9, 
   3.5388318571704426`*^9, 3.538930129125*^9, 3.5389775451770325`*^9, 
   3.5389930347467065`*^9, 3.539011394014875*^9, 3.539012266264875*^9, 
   3.5390160506555*^9, 3.5411477840545244`*^9, 3.541147896334337*^9, 
   3.541154665327507*^9, 3.541157080741104*^9, 3.548386343229559*^9, 
   3.5483863834998226`*^9, {3.55479790353125*^9, 3.55479791871875*^9}, 
   3.555661927899626*^9, 3.5562489710384693`*^9, 3.5562493072305317`*^9, 
   3.5562495513873005`*^9, 3.556276469980605*^9, 3.5562765893369246`*^9, 
   3.556296177140625*^9, 3.5562962859375*^9, 3.567943965320612*^9, 
   3.5680017704995685`*^9, 3.5680020170282187`*^9, 3.568002883232572*^9, 
   3.568003102807572*^9, 3.568028483371363*^9, 3.56803001709372*^9, 
   3.5680311770016994`*^9, 3.5681289864741287`*^9, {3.568129153802699*^9, 
   3.5681291837284107`*^9}, 3.568129298839995*^9, 3.568143325401458*^9, 
   3.5681435391886854`*^9, 3.5681436459037895`*^9, 3.568143844762163*^9, 
   3.5681440386692543`*^9, 3.5681466421091623`*^9, 3.5681466724698987`*^9, 
   3.5681488350175896`*^9, 3.568149705591384*^9, 3.5681501262154417`*^9, 
   3.5681825648607388`*^9, 3.5681840447366047`*^9, 3.568184684958223*^9, 
   3.5681850890863376`*^9, 3.56818594529631*^9, 3.5681863896647263`*^9, 
   3.5682263441427097`*^9, 3.568226415909815*^9, 3.568226541991026*^9, 
   3.5682290889787054`*^9, 3.5682295847060595`*^9, 3.5682296932012653`*^9, 
   3.5731628329981976`*^9, 3.573164892154975*^9, 3.573203768106024*^9, 
   3.5732053381718264`*^9, 3.5732437821428514`*^9, 3.573244342208885*^9, 
   3.5732444367112904`*^9, 3.576920095072671*^9, 3.5769202196771297`*^9, 
   3.5772928624441357`*^9, 3.5772931225610137`*^9, 3.577451900920363*^9, 
   3.579160507861925*^9, 3.5907470218344927`*^9, 3.590747087092639*^9, 
   3.590747120150753*^9}]
}, Open  ]],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[CapitalOmega]", "B"], TraditionalForm]]],
 " is from Stevensson and Lewis (1.5-2), "
}], "Text"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[CapitalOmega]", "B"], ":=", 
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", 
       RowBox[{"-", "Rb"}], "Qb"},
      {"Rb", "0", 
       RowBox[{"-", "Pb"}]},
      {
       RowBox[{"-", "Qb"}], "Pb", "0"}
     }], "\[NoBreak]", ")"}],
   MatrixForm[#]& ]}]], "Input"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[CapitalOmega]", "q"], ":=", 
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", "Pb", "Qb", "Rb"},
      {
       RowBox[{"-", "Pb"}], "0", 
       RowBox[{"-", "Rb"}], "Qb"},
      {
       RowBox[{"-", "Qb"}], "Rb", "0", 
       RowBox[{"-", "Pb"}]},
      {
       RowBox[{"-", "Rb"}], 
       RowBox[{"-", "Qb"}], "Pb", "0"}
     }], "\[NoBreak]", ")"}],
   MatrixForm[#]& ]}]], "Input"],

Cell[BoxData[
 RowBox[{"J", ":=", 
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"Ix", "0", 
       RowBox[{"-", "Ixz"}]},
      {"0", "Iy", "0"},
      {
       RowBox[{"-", "Ixz"}], "0", "Iz"}
     }], "\[NoBreak]", ")"}],
   MatrixForm[#]& ]}]], "Input"],

Cell["The invers of the inertia matrix is", "Text"],

Cell[BoxData[
 RowBox[{"Jinv", ":=", 
  RowBox[{"Simplify", " ", "[", 
   RowBox[{"Inverse", "[", "J", "]"}], "]"}]}]], "Input"],

Cell["The speed vector in body coordinates", "Text"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["V", "body"], ":=", 
  RowBox[{"{", 
   RowBox[{"Ub", ",", "Vb", ",", "Wb"}], "}"}]}]], "Input"],

Cell["The speed vector in earth coordinates", "Text"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["V", "NED"], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"s", " ", "xcg"}], ",", " ", 
    RowBox[{"s", " ", "ycg"}], ",", " ", 
    RowBox[{"s", " ", "zcg"}]}], "}"}]}]], "Input"],

Cell["The force vector in body coordinates", "Text"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["F", "b"], " ", ":=", " ", 
  RowBox[{"{", 
   RowBox[{"Fx", ",", "Fy", ",", "Fz"}], "}"}]}]], "Input"],

Cell["The gravitational vector is defined as (earth coordinates):", "Text"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{
    SubscriptBox["G", "0"], ":=", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "g0"}], "}"}]}], "\[IndentingNewLine]", 
   RowBox[{"Fground", ":=", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"onPositive", "[", "zcg", "]"}]}], "kground", " ", "zcg"}]}], 
     "}"}]}]}]}]], "Input",
 CellChangeTimes->{{3.555056841403258*^9, 3.5550568708249445`*^9}, {
  3.5550569212621217`*^9, 3.555056940511998*^9}}],

Cell["The vector of Euler angles is:", "Text"],

Cell[BoxData[
 RowBox[{"\[CapitalPhi]", " ", ":=", 
  RowBox[{"{", 
   RowBox[{"\[Phi]", ",", " ", "\[Theta]", ",", "\[Psi]"}], 
   "}"}]}]], "DisplayFormula"],

Cell["The quartenion vector is:", "Text"],

Cell[BoxData[
 RowBox[{"quart", ":=", 
  RowBox[{"{", 
   RowBox[{"q0", ",", "q1", ",", "q2", ",", "q3"}], "}"}]}]], "Input"],

Cell["The angular rates in body coordinates", "Text"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   SubscriptBox["\[Omega]", "b"], ":=", 
   RowBox[{"{", 
    RowBox[{"Pb", ",", "Qb", ",", "Rb"}], "}"}]}]}]], "Input"],

Cell["The vector of moments in body coordinates", "Text"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["T", "b"], ":=", 
  RowBox[{"{", 
   RowBox[{"Lb", ",", "Mb", ",", "Nb"}], "}"}]}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["The system equations", "Subsubsection"],

Cell[TextData[StyleBox["Force Equations",
 FontSlant->"Italic"]], "Text"],

Cell[BoxData[
 RowBox[{"forceEquation", ":=", 
  RowBox[{
   RowBox[{"s", " ", 
    SubscriptBox["V", "body"]}], "-", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SubscriptBox["\[CapitalOmega]", "B"], ".", 
       SubscriptBox["V", "body"]}]}], "+", 
     RowBox[{
      SubscriptBox["L", "BV"], " ", ".", "  ", 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["G", "0"], "+", 
        FractionBox["Fground", "mass"]}], ")"}]}], "+", 
     FractionBox[
      SubscriptBox["F", "b"], "mass"]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.5550568095597115`*^9, 3.555056811856572*^9}, {
  3.555056866246849*^9, 3.5550568965747795`*^9}, {3.5550569356839046`*^9, 
  3.555056936949521*^9}}],

Cell[TextData[StyleBox["Kinematic Equations",
 FontSlant->"Italic"]], "Text"],

Cell["(when Euler angles are used)", "Text"],

Cell[BoxData[
 RowBox[{"kinematicEquation", ":=", 
  RowBox[{
   RowBox[{"s", " ", "\[CapitalPhi]"}], "-", 
   RowBox[{"\[Zeta]", ".", " ", 
    SubscriptBox["\[Omega]", "b"]}]}]}]], "DisplayFormula"],

Cell["(when quartenions are used)", "Text"],

Cell[BoxData[
 RowBox[{"kinematicEquation", ":=", 
  RowBox[{
   RowBox[{"s", " ", "quart"}], " ", "-", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", 
     RowBox[{
      SubscriptBox["\[CapitalOmega]", "q"], ".", "quart"}]}], 
    ")"}]}]}]], "Input"],

Cell[TextData[StyleBox["Moment Equations",
 FontSlant->"Italic"]], "Text"],

Cell[BoxData[
 RowBox[{"momentEquation", ":=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"s", " ", 
     SubscriptBox["\[Omega]", "b"]}], "-", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"Jinv", " ", ".", 
        SubscriptBox["\[CapitalOmega]", "B"], " ", ".", "J", " ", ".", " ", 
        SubscriptBox["\[Omega]", "b"]}]}], "+", 
      RowBox[{"Jinv", ".", " ", 
       SubscriptBox["T", "b"]}]}], ")"}]}], "]"}]}]], "Input"],

Cell[TextData[StyleBox["Naviagation Equations",
 FontSlant->"Italic"]], "Text"],

Cell[BoxData[
 RowBox[{"navigationEquation", ":=", 
  RowBox[{
   SubscriptBox["V", "NED"], "-", 
   RowBox[{
    SubscriptBox["L", "VB"], ".", 
    SubscriptBox["V", "body"]}]}]}]], "Input"],

Cell[TextData[{
 "Tranformation between quartenions and Euler angles can be done in a \
straightforward way by simply adding this set of equation to the ",
 StyleBox["systemEquationDa",
  FontSlant->"Italic"],
 "."
}], "Text"],

Cell[BoxData[
 RowBox[{"quartenion2Euler", ":=", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q1", "-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Sin", "[", 
         FractionBox["\[Phi]", "2"], "]"}], 
        RowBox[{"Cos", "[", 
         FractionBox["\[Theta]", "2"], "]"}], 
        RowBox[{"Cos", "[", 
         FractionBox["\[Psi]", "2"], "]"}]}], "-", 
       RowBox[{
        RowBox[{"Cos", "[", 
         FractionBox["\[Phi]", "2"], "]"}], 
        RowBox[{"Sin", "[", 
         FractionBox["\[Theta]", "2"], "]"}], 
        RowBox[{"Sin", "[", 
         FractionBox["\[Psi]", "2"], "]"}]}]}], ")"}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"q2", "-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", 
         FractionBox["\[Phi]", "2"], "]"}], 
        RowBox[{"Sin", "[", 
         FractionBox["\[Theta]", "2"], "]"}], 
        RowBox[{"Cos", "[", 
         FractionBox["\[Psi]", "2"], "]"}]}], "+", 
       RowBox[{
        RowBox[{"Sin", "[", 
         FractionBox["\[Phi]", "2"], "]"}], 
        RowBox[{"Cos", "[", 
         FractionBox["\[Theta]", "2"], "]"}], 
        RowBox[{"Sin", "[", 
         FractionBox["\[Psi]", "2"], "]"}]}]}], ")"}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"q3", "-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", 
         FractionBox["\[Phi]", "2"], "]"}], 
        RowBox[{"Cos", "[", 
         FractionBox["\[Theta]", "2"], "]"}], 
        RowBox[{"Sin", "[", 
         FractionBox["\[Psi]", "2"], "]"}]}], "-", 
       RowBox[{
        RowBox[{"Sin", "[", 
         FractionBox["\[Phi]", "2"], "]"}], 
        RowBox[{"Sin", "[", 
         FractionBox["\[Theta]", "2"], "]"}], 
        RowBox[{"Cos", "[", 
         FractionBox["\[Psi]", "2"], "]"}]}]}], ")"}]}]}], 
   "\[IndentingNewLine]", "}"}]}]], "Input"],

Cell["\<\
A (marginally) more computationally efficient way, however, is to calculate \
them explicitly (which is used here).\
\>", "Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["\[Phi]", "expr"], "=", 
   RowBox[{"Atan2L", "[", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"q2", " ", "q3"}], "+", 
        RowBox[{"q0", " ", "q1"}]}], ")"}]}], ",", 
     RowBox[{
      SuperscriptBox["q0", "2"], "-", 
      SuperscriptBox["q1", "2"], "-", 
      SuperscriptBox["q2", "2"], "+", 
      SuperscriptBox["q3", "2"]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Theta]", "expr"], "=", 
   RowBox[{"ArcSinL", "[", 
    RowBox[{"2", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"q0", " ", "q2"}], "-", 
       RowBox[{"q1", " ", "q3"}]}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Psi]", "expr"], "=", 
   RowBox[{"Atan2L", "[", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"q1", " ", "q2"}], "+", 
        RowBox[{"q0", " ", "q3"}]}], ")"}]}], ",", 
     RowBox[{
      SuperscriptBox["q0", "2"], "+", 
      SuperscriptBox["q1", "2"], "-", 
      SuperscriptBox["q2", "2"], "-", 
      SuperscriptBox["q3", "2"]}]}], "]"}]}], ";"}]}], "Input"],

Cell["\<\
To solve the system of equations all equations are equal to zero.\
\>", "Text"],

Cell["\<\
Another instance of the navigation equation is needed to obtain the speeds i \
earth coordinates.\
\>", "Text"],

Cell[BoxData[
 RowBox[{"expressionVE", ":=", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}], ",", 
     RowBox[{
      SubscriptBox["L", "VB"], ".", 
      SubscriptBox["V", "body"]}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{3.541153908526613*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Assembling the system of equations", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"forceEquation", "//", "TableForm"}]], "Input"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox["Fx", "mass"]}], "+", 
       RowBox[{"s", " ", "Ub"}], "-", 
       RowBox[{"Rb", " ", "Vb"}], "+", 
       RowBox[{"Qb", " ", "Wb"}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "q0"}], " ", "q2"}], "+", 
          RowBox[{"q1", " ", "q3"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"g0", "-", 
          FractionBox[
           RowBox[{"kground", " ", "zcg", " ", 
            RowBox[{"onPositive", "[", "zcg", "]"}]}], "mass"]}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox["Fy", "mass"]}], "+", 
       RowBox[{"Rb", " ", "Ub"}], "+", 
       RowBox[{"s", " ", "Vb"}], "-", 
       RowBox[{"Pb", " ", "Wb"}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q0", " ", "q1"}], "+", 
          RowBox[{"q2", " ", "q3"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"g0", "-", 
          FractionBox[
           RowBox[{"kground", " ", "zcg", " ", 
            RowBox[{"onPositive", "[", "zcg", "]"}]}], "mass"]}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox["Fz", "mass"]}], "-", 
       RowBox[{"Qb", " ", "Ub"}], "+", 
       RowBox[{"Pb", " ", "Vb"}], "+", 
       RowBox[{"s", " ", "Wb"}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q0", "2"], "-", 
          SuperscriptBox["q1", "2"], "-", 
          SuperscriptBox["q2", "2"], "+", 
          SuperscriptBox["q3", "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"g0", "-", 
          FractionBox[
           RowBox[{"kground", " ", "zcg", " ", 
            RowBox[{"onPositive", "[", "zcg", "]"}]}], "mass"]}], ")"}]}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.518675986671875*^9, 3.518676206125*^9, 3.518676284234375*^9, {
   3.518676395015625*^9, 3.518676399984375*^9}, 3.518676446828125*^9, {
   3.51867720825*^9, 3.518677245546875*^9}, 3.518677293*^9, 
   3.518677524203125*^9, 3.51867760059375*^9, 3.5186778018125*^9, {
   3.5186780073125*^9, 3.518678032234375*^9}, 3.51867854153125*^9, 
   3.51868016746875*^9, 3.51868042653125*^9, 3.51868061315625*^9, 
   3.51868070671875*^9, 3.518862356953125*^9, 3.518862399921875*^9, 
   3.518862805671875*^9, 3.51886333003125*^9, 3.519404825453125*^9, 
   3.519404898921875*^9, 3.519410722203125*^9, 3.519442228625*^9, 
   3.5194423545*^9, 3.519442495109375*^9, 3.51944262234375*^9, 
   3.519442802140625*^9, 3.5194430906875*^9, 3.51944315315625*^9, 
   3.51944363528125*^9, 3.5194436945*^9, 3.519443760953125*^9, {
   3.519444184578125*^9, 3.5194442048125*^9}, 3.5194447170625*^9, 
   3.519543650484375*^9, 3.519805576484375*^9, 3.5198059485*^9, 
   3.519813958*^9, 3.519847788890625*^9, 3.522042509792017*^9, 
   3.522042663088177*^9, 3.522042694774866*^9, 3.522042864286151*^9, 
   3.52207860759375*^9, 3.5318234034637456`*^9, 3.53185127059375*^9, 
   3.531851339375*^9, 3.531851424*^9, 3.531851789765625*^9, 
   3.531852604234375*^9, 3.53185266771875*^9, 3.531852740453125*^9, 
   3.5318528296875*^9, 3.531852887453125*^9, 3.53185295009375*^9, 
   3.53185308753125*^9, 3.531853142078125*^9, 3.53185327946875*^9, 
   3.531853354828125*^9, 3.53185342125*^9, 3.531853472234375*^9, 
   3.531853530875*^9, 3.531853675015625*^9, 3.531853782109375*^9, 
   3.5318539939375*^9, {3.5318541308125*^9, 3.53185415853125*^9}, 
   3.531854245484375*^9, 3.531854284578125*^9, 3.5318543708125*^9, 
   3.53185447771875*^9, 3.531854541015625*^9, 3.531855031359375*^9, 
   3.531857043015625*^9, 3.53210695225*^9, 3.534158614703125*^9, {
   3.534167498609375*^9, 3.53416752028125*^9}, 3.5341676305*^9, 
   3.534167816140625*^9, 3.534167893890625*^9, 3.5341743348125*^9, 
   3.534218555671875*^9, 3.534218602328125*^9, 3.534218782609375*^9, 
   3.534229535921875*^9, 3.53423035571875*^9, 3.534230702765625*^9, 
   3.534415268578125*^9, 3.534419006890625*^9, 3.53441951296875*^9, 
   3.534437398515625*^9, 3.534437683640625*^9, 3.534438100609375*^9, 
   3.5344856876875*^9, 3.53448608153125*^9, 3.53448614896875*^9, 
   3.538214450923171*^9, 3.538220024896864*^9, 3.538221589368893*^9, 
   3.538221882912011*^9, {3.53822218961121*^9, 3.5382221950486403`*^9}, 
   3.538222505650333*^9, 3.538222874340618*^9, 3.538223233697091*^9, 
   3.538223624395215*^9, 3.538236867125*^9, 3.53823704371875*^9, 
   3.538281760077125*^9, 3.5382833445540147`*^9, 3.5382841946758337`*^9, 
   3.538284307893859*^9, 3.5382850865451255`*^9, 3.5382882707084064`*^9, 
   3.5382890618184786`*^9, 3.538289948963026*^9, 3.5383951377164927`*^9, 
   3.53839539593359*^9, 3.538395596182308*^9, 3.5384803259263325`*^9, 
   3.538503420890625*^9, 3.538503688390625*^9, 3.538503780234375*^9, 
   3.5387212289853544`*^9, 3.538722695541375*^9, 3.538803565136484*^9, 
   3.5388059197145867`*^9, 3.5388061689317417`*^9, 3.5388296376137333`*^9, 
   3.5388318572798185`*^9, 3.538930129953125*^9, 3.5389775455676603`*^9, 
   3.5389930352310815`*^9, 3.53901139524925*^9, 3.539012267452375*^9, 
   3.5390160519055*^9, 3.5411477841795225`*^9, 3.541147896443711*^9, 
   3.541154665468129*^9, 3.5411570809286413`*^9, 3.548386343604602*^9, 
   3.5483863836717176`*^9, {3.554797903640625*^9, 3.554797918890625*^9}, 
   3.5556619280715003`*^9, 3.556248971288444*^9, 3.556249307386648*^9, 
   3.556249551637195*^9, 3.5562764703712196`*^9, 3.5562765894306717`*^9, 
   3.556296177265625*^9, 3.55629628603125*^9, 3.5679439655786266`*^9, 
   3.5680017708206005`*^9, 3.5680020176832843`*^9, 3.568002883646572*^9, 
   3.5680031031895723`*^9, 3.568028483572383*^9, 3.56803001729574*^9, 
   3.56803117720872*^9, 3.5681289867911468`*^9, 3.5681291540847154`*^9, 
   3.5681291841244335`*^9, 3.5681292991250114`*^9, 3.5681433257804794`*^9, 
   3.5681435395037036`*^9, 3.56814364626681*^9, 3.568143845559209*^9, 
   3.5681440389392695`*^9, 3.5681466423181744`*^9, 3.5681466728619213`*^9, 
   3.568148835422613*^9, 3.568149706026408*^9, 3.568150126733472*^9, 
   3.5681825651617556`*^9, 3.568184045079624*^9, 3.5681846854392505`*^9, 
   3.5681850895503645`*^9, 3.5681859456223288`*^9, 3.5681863898817387`*^9, 
   3.5682263443817234`*^9, 3.5682264161838303`*^9, 3.56822654223604*^9, 
   3.5682290893117247`*^9, 3.568229585104082*^9, 3.5682296934482794`*^9, 
   3.573162833298215*^9, 3.573164892317984*^9, 3.5732037683640385`*^9, 
   3.5732053383758383`*^9, 3.573243782316861*^9, 3.5732443423888955`*^9, 
   3.5732444368903008`*^9, 3.576920095256689*^9, 3.5769202198811502`*^9, 
   3.577292862678149*^9, 3.5772931227650256`*^9, 3.577451901403363*^9, 
   3.579160508063937*^9, 3.5907470220685043`*^9, 3.59074708731105*^9, 
   3.590747120322362*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"momentEquation", "//", "TableForm"}]], "Input"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["Iz", "2"]}], " ", "Qb", " ", "Rb"}], "+", 
        RowBox[{"Iz", " ", 
         RowBox[{"(", 
          RowBox[{"Lb", "+", 
           RowBox[{"Ixz", " ", "Pb", " ", "Qb"}], "+", 
           RowBox[{"Iy", " ", "Qb", " ", "Rb"}], "-", 
           RowBox[{"Ix", " ", "Pb", " ", "s"}]}], ")"}]}], "+", 
        RowBox[{"Ixz", " ", 
         RowBox[{"(", 
          RowBox[{"Nb", "+", 
           RowBox[{"Ix", " ", "Pb", " ", "Qb"}], "-", 
           RowBox[{"Iy", " ", "Pb", " ", "Qb"}], "-", 
           RowBox[{"Ixz", " ", "Qb", " ", "Rb"}], "+", 
           RowBox[{"Ixz", " ", "Pb", " ", "s"}]}], ")"}]}]}], 
       RowBox[{
        SuperscriptBox["Ixz", "2"], "-", 
        RowBox[{"Ix", " ", "Iz"}]}]]},
     {
      FractionBox[
       RowBox[{
        RowBox[{"-", "Mb"}], "+", 
        RowBox[{"Ix", " ", "Pb", " ", "Rb"}], "-", 
        RowBox[{"Iz", " ", "Pb", " ", "Rb"}], "+", 
        RowBox[{"Ixz", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["Pb", "2"], "-", 
           SuperscriptBox["Rb", "2"]}], ")"}]}], "+", 
        RowBox[{"Iy", " ", "Qb", " ", "s"}]}], "Iy"]},
     {
      FractionBox[
       RowBox[{
        RowBox[{"Ixz", " ", 
         RowBox[{"(", 
          RowBox[{"Lb", "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"Ix", "-", "Iy", "+", "Iz"}], ")"}], " ", "Qb", " ", 
            "Rb"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["Ixz", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Pb", " ", "Qb"}], "+", 
           RowBox[{"Rb", " ", "s"}]}], ")"}]}], "+", 
        RowBox[{"Ix", " ", 
         RowBox[{"(", 
          RowBox[{"Nb", "+", 
           RowBox[{"Ix", " ", "Pb", " ", "Qb"}], "-", 
           RowBox[{"Iy", " ", "Pb", " ", "Qb"}], "-", 
           RowBox[{"Iz", " ", "Rb", " ", "s"}]}], ")"}]}]}], 
       RowBox[{
        SuperscriptBox["Ixz", "2"], "-", 
        RowBox[{"Ix", " ", "Iz"}]}]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.518675987*^9, 3.518676206234375*^9, 3.518676284328125*^9, {
   3.518676395078125*^9, 3.5186764000625*^9}, 3.518676446890625*^9, {
   3.5186772083125*^9, 3.518677246875*^9}, 3.518677293015625*^9, 
   3.518677524234375*^9, 3.518677600734375*^9, 3.518677803421875*^9, {
   3.51867800871875*^9, 3.51867803365625*^9}, 3.518678542984375*^9, 
   3.518680168890625*^9, 3.518680428109375*^9, 3.5186806145625*^9, 
   3.518680708171875*^9, 3.518862357609375*^9, 3.51886240178125*^9, 
   3.518862807078125*^9, 3.518863331484375*^9, 3.519404825828125*^9, 
   3.519404900546875*^9, 3.519410723625*^9, 3.519442230046875*^9, 
   3.519442356*^9, 3.519442496578125*^9, 3.519442622515625*^9, 
   3.519442803859375*^9, 3.519443092125*^9, 3.519443154578125*^9, 
   3.519443635421875*^9, 3.51944369621875*^9, 3.519443761109375*^9, {
   3.51944418525*^9, 3.519444205296875*^9}, 3.5194447175625*^9, 
   3.51954365090625*^9, 3.519805576859375*^9, 3.51980595096875*^9, 
   3.519813960078125*^9, 3.5198477910625*^9, 3.522042509948266*^9, 
   3.522042663822533*^9, 3.5220426953061028`*^9, 3.522042864426773*^9, 
   3.522078607859375*^9, 3.531823403854368*^9, 3.531851270828125*^9, 
   3.531851339625*^9, 3.53185142421875*^9, 3.531851790015625*^9, 
   3.5318526045*^9, 3.531852667953125*^9, 3.531852740703125*^9, 
   3.53185282990625*^9, 3.5318528876875*^9, 3.531852950328125*^9, 
   3.531853087765625*^9, 3.531853142328125*^9, 3.531853279703125*^9, 
   3.531853355078125*^9, 3.531853421484375*^9, 3.53185347225*^9, 
   3.531853530875*^9, 3.53185367503125*^9, 3.531853782234375*^9, 
   3.5318539941875*^9, {3.531854131046875*^9, 3.53185415878125*^9}, 
   3.531854245703125*^9, 3.531854284828125*^9, 3.53185437103125*^9, 
   3.53185447796875*^9, 3.531854541265625*^9, 3.531855031578125*^9, 
   3.531857043265625*^9, 3.53210695325*^9, 3.534158615765625*^9, {
   3.534167499234375*^9, 3.534167520390625*^9}, 3.534167631640625*^9, 
   3.534167817234375*^9, 3.534167895015625*^9, 3.534174335796875*^9, 
   3.534218556671875*^9, 3.534218603375*^9, 3.53421878365625*^9, 
   3.534229537078125*^9, 3.53423035671875*^9, 3.534230704125*^9, 
   3.534415269625*^9, 3.5344190079375*^9, 3.534419513984375*^9, 
   3.534437399671875*^9, 3.5344376846875*^9, 3.5344381016875*^9, 
   3.534485688703125*^9, 3.53448608253125*^9, 3.534486150125*^9, 
   3.538214451048172*^9, 3.538220025068736*^9, 3.5382215894782667`*^9, 
   3.5382218830213842`*^9, {3.538222189720584*^9, 3.5382221951580143`*^9}, 
   3.5382225057597113`*^9, 3.538222874449992*^9, 3.538223233806464*^9, 
   3.538223624504588*^9, 3.538236867734375*^9, 3.5382370443125*^9, 
   3.538281760202125*^9, 3.5382833446633954`*^9, 3.5382841947852077`*^9, 
   3.538284308003233*^9, 3.538285086670125*^9, 3.538288270833406*^9, 
   3.538289061943478*^9, 3.5382899490724*^9, 3.5383951378258667`*^9, 
   3.5383953960429645`*^9, 3.5383955962916827`*^9, 3.538480326035633*^9, 
   3.53850342103125*^9, 3.538503688515625*^9, 3.53850378034375*^9, 
   3.538721229110358*^9, 3.538722695682*^9, 3.5388035653083625`*^9, 
   3.5388059198239613`*^9, 3.538806169041116*^9, 3.5388296377387342`*^9, 
   3.5388318574048204`*^9, 3.5389301308125*^9, 3.5389775456770363`*^9, 
   3.5389930354967065`*^9, 3.539011395858625*^9, 3.539012267952375*^9, 
   3.539016052421125*^9, 3.541147784632642*^9, 3.5411478965530844`*^9, 
   3.5411546656087513`*^9, 3.541157081053666*^9, 3.54838634410466*^9, 
   3.548386383781105*^9, {3.55479790384375*^9, 3.554797919*^9}, 
   3.5556619281965003`*^9, 3.5562489721477313`*^9, 3.5562493075895987`*^9, 
   3.5562495517777605`*^9, 3.556276470480592*^9, 3.556276589540044*^9, 
   3.55629617740625*^9, 3.556296286140625*^9, 3.5679439656786327`*^9, 
   3.5680017709106092`*^9, 3.5680020177822943`*^9, 3.568002883725572*^9, 
   3.568003103258572*^9, 3.5680284836383896`*^9, 3.568030017357746*^9, 
   3.5680311772757263`*^9, 3.5681289869171543`*^9, 3.5681291541907215`*^9, 
   3.5681291842764425`*^9, 3.5681292992270174`*^9, 3.568143326099498*^9, 
   3.56814353961271*^9, 3.568143646353815*^9, 3.5681438456682153`*^9, 
   3.5681440390462756`*^9, 3.5681466424061794`*^9, 3.568146672945926*^9, 
   3.5681488355106177`*^9, 3.568149706122414*^9, 3.568150126833477*^9, 
   3.568182565284763*^9, 3.56818404518363*^9, 3.5681846855502567`*^9, 
   3.5681850896443696`*^9, 3.568185945718334*^9, 3.5681863899747443`*^9, 
   3.56822634448973*^9, 3.568226416313838*^9, 3.5682265423470464`*^9, 
   3.5682290893997297`*^9, 3.568229585192087*^9, 3.568229693535284*^9, 
   3.573162833400221*^9, 3.5731648923959885`*^9, 3.573203768448044*^9, 
   3.573205338458843*^9, 3.573243782394866*^9, 3.5732443424659*^9, 
   3.573244436968305*^9, 3.576920095342698*^9, 3.576920219964159*^9, 
   3.5772928627651544`*^9, 3.57729312284503*^9, 3.577451901510363*^9, 
   3.5791605081469417`*^9, 3.5907470221621094`*^9, 3.5907470874046545`*^9, 
   3.590747120400366*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"kinematicEquation", "//", "TableForm"}]], "Input"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Pb", " ", "q1"}], "+", 
          RowBox[{"q2", " ", "Qb"}], "+", 
          RowBox[{"q3", " ", "Rb"}]}], ")"}]}], "+", 
       RowBox[{"q0", " ", "s"}]}]},
     {
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "Pb"}], " ", "q0"}], "+", 
          RowBox[{"q3", " ", "Qb"}], "-", 
          RowBox[{"q2", " ", "Rb"}]}], ")"}]}], "+", 
       RowBox[{"q1", " ", "s"}]}]},
     {
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "Pb"}], " ", "q3"}], "-", 
          RowBox[{"q0", " ", "Qb"}], "+", 
          RowBox[{"q1", " ", "Rb"}]}], ")"}]}], "+", 
       RowBox[{"q2", " ", "s"}]}]},
     {
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Pb", " ", "q2"}], "-", 
          RowBox[{"q1", " ", "Qb"}], "-", 
          RowBox[{"q0", " ", "Rb"}]}], ")"}]}], "+", 
       RowBox[{"q3", " ", "s"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.51867598715625*^9, 3.51867620628125*^9, 3.51867628434375*^9, {
   3.518676395203125*^9, 3.5186764001875*^9}, 3.51867644703125*^9, {
   3.51867720834375*^9, 3.518677247109375*^9}, 3.51867729303125*^9, 
   3.51867752428125*^9, 3.51867760075*^9, 3.518677803625*^9, {
   3.518678008921875*^9, 3.518678033859375*^9}, 3.51867854303125*^9, 
   3.518680169125*^9, 3.51868042815625*^9, 3.51868061478125*^9, 
   3.51868070840625*^9, 3.51886235778125*^9, 3.518862401984375*^9, 
   3.518862807234375*^9, 3.518863331640625*^9, 3.519404825875*^9, 
   3.519404900796875*^9, 3.51941072378125*^9, 3.519442230140625*^9, 
   3.519442356109375*^9, 3.519442496734375*^9, 3.5194426225625*^9, 
   3.519442804*^9, 3.519443092296875*^9, 3.519443154765625*^9, 
   3.519443635625*^9, 3.51944369625*^9, 3.519443761140625*^9, {
   3.519444185375*^9, 3.519444205421875*^9}, 3.5194447176875*^9, 
   3.519543650953125*^9, 3.519805576875*^9, 3.519805951125*^9, 
   3.51981396025*^9, 3.519847791125*^9, 3.522042509979516*^9, 
   3.5220426638537827`*^9, 3.52204269539985*^9, 3.5220428645673943`*^9, 
   3.52207860790625*^9, 3.5318234038856177`*^9, 3.53185127084375*^9, 
   3.531851339640625*^9, 3.531851424234375*^9, 3.53185179003125*^9, 
   3.531852604515625*^9, 3.53185266796875*^9, 3.53185274071875*^9, 
   3.531852829921875*^9, 3.531852887703125*^9, 3.53185295034375*^9, 
   3.53185308778125*^9, 3.53185314234375*^9, 3.53185327971875*^9, 
   3.531853355078125*^9, 3.5318534215*^9, 3.531853472265625*^9, 
   3.531853530890625*^9, 3.531853675046875*^9, 3.531853782515625*^9, 
   3.531853994203125*^9, {3.5318541310625*^9, 3.531854158796875*^9}, 
   3.53185424571875*^9, 3.53185428484375*^9, 3.531854371046875*^9, 
   3.531854477984375*^9, 3.53185454128125*^9, 3.53185503159375*^9, 
   3.53185704328125*^9, 3.532106953359375*^9, 3.534158615859375*^9, {
   3.534167499515625*^9, 3.53416752046875*^9}, 3.53416763184375*^9, 
   3.534167817484375*^9, 3.534167895125*^9, 3.534174335890625*^9, 
   3.534218556953125*^9, 3.53421860346875*^9, 3.53421878375*^9, 
   3.5342295371875*^9, 3.534230356796875*^9, 3.534230704625*^9, 
   3.534415269859375*^9, 3.53441900803125*^9, 3.534419514078125*^9, 
   3.534437399859375*^9, 3.5344376848125*^9, 3.5344381018125*^9, 
   3.534485688796875*^9, 3.534486082609375*^9, 3.53448615021875*^9, 
   3.538214451173173*^9, 3.538220025115611*^9, 3.5382215895095167`*^9, 
   3.5382218830370092`*^9, {3.538222189751833*^9, 3.5382221951892633`*^9}, 
   3.538222505775337*^9, 3.538222874465617*^9, 3.538223233822089*^9, 
   3.538223624535838*^9, 3.53823686784375*^9, 3.538237044609375*^9, 
   3.538281760233375*^9, 3.538283344694647*^9, 3.5382841948164577`*^9, 
   3.538284308034483*^9, 3.5382850866857495`*^9, 3.5382882708646555`*^9, 
   3.5382890619591026`*^9, 3.53828994910365*^9, 3.5383951378727417`*^9, 
   3.538395396074214*^9, 3.5383955963073072`*^9, 3.538480326051247*^9, 
   3.53850342121875*^9, 3.538503688546875*^9, 3.538503780359375*^9, 
   3.5387212291416097`*^9, 3.538722695947625*^9, 3.538803565339613*^9, 
   3.5388059198552113`*^9, 3.5388061690879908`*^9, 3.5388296377699842`*^9, 
   3.5388318574204454`*^9, 3.53893013140625*^9, 3.5389775457082863`*^9, 
   3.5389930356685815`*^9, 3.539011396577375*^9, 3.539012268077375*^9, 
   3.539016052514875*^9, 3.541147784773265*^9, 3.5411478965687094`*^9, 
   3.541154665640001*^9, 3.5411570810692945`*^9, 3.5483863441359134`*^9, 
   3.548386383796732*^9, {3.554797903875*^9, 3.55479791903125*^9}, 
   3.5556619282902503`*^9, 3.556248972194601*^9, 3.556249307620822*^9, 
   3.556249551824616*^9, 3.5562764705118413`*^9, 3.556276589571293*^9, 
   3.55629617746875*^9, 3.556296286171875*^9, 3.5679439657016335`*^9, 
   3.5680017709426126`*^9, 3.568002017848301*^9, 3.5680028837705717`*^9, 
   3.568003103291572*^9, 3.5680284836663923`*^9, 3.568030017383749*^9, 
   3.5680311774407434`*^9, 3.5681289869461555`*^9, 3.568129154219723*^9, 
   3.568129185161493*^9, 3.568129299257019*^9, 3.5681433261394997`*^9, 
   3.5681435396397114`*^9, 3.568143646384817*^9, 3.5681438457292185`*^9, 
   3.568144039074277*^9, 3.568146642431181*^9, 3.5681466729719276`*^9, 
   3.568148835536619*^9, 3.5681497061494155`*^9, 3.568150126864479*^9, 
   3.568182565321765*^9, 3.5681840452136316`*^9, 3.568184685577258*^9, 
   3.5681850896733713`*^9, 3.568185945746336*^9, 3.568186390005746*^9, 
   3.5682263445387325`*^9, 3.568226416377842*^9, 3.5682265424000497`*^9, 
   3.568229089428731*^9, 3.5682295852190886`*^9, 3.568229693567286*^9, 
   3.573162833426222*^9, 3.57316489242199*^9, 3.573203768472045*^9, 
   3.5732053385728493`*^9, 3.5732437824198675`*^9, 3.573244342490902*^9, 
   3.573244436993307*^9, 3.5769200953677006`*^9, 3.5769202199901614`*^9, 
   3.5772928627931557`*^9, 3.5772931228690314`*^9, 3.5774519015363626`*^9, 
   3.579160508171943*^9, 3.5907470221933107`*^9, 3.5907470874358563`*^9, 
   3.590747120431567*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"navigationEquation", "//", "TableForm"}]], "Input"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q0", "2"], "+", 
           SuperscriptBox["q1", "2"], "-", 
           SuperscriptBox["q2", "2"], "-", 
           SuperscriptBox["q3", "2"]}], ")"}]}], " ", "Ub"}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q1", " ", "q2"}], "-", 
          RowBox[{"q0", " ", "q3"}]}], ")"}], " ", "Vb"}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q0", " ", "q2"}], "+", 
          RowBox[{"q1", " ", "q3"}]}], ")"}], " ", "Wb"}], "+", 
       RowBox[{"s", " ", "xcg"}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q1", " ", "q2"}], "+", 
          RowBox[{"q0", " ", "q3"}]}], ")"}], " ", "Ub"}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q0", "2"], "-", 
          SuperscriptBox["q1", "2"], "+", 
          SuperscriptBox["q2", "2"], "-", 
          SuperscriptBox["q3", "2"]}], ")"}], " ", "Vb"}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "q0"}], " ", "q1"}], "+", 
          RowBox[{"q2", " ", "q3"}]}], ")"}], " ", "Wb"}], "+", 
       RowBox[{"s", " ", "ycg"}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "q0"}], " ", "q2"}], "+", 
          RowBox[{"q1", " ", "q3"}]}], ")"}], " ", "Ub"}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q0", " ", "q1"}], "+", 
          RowBox[{"q2", " ", "q3"}]}], ")"}], " ", "Vb"}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q0", "2"], "-", 
          SuperscriptBox["q1", "2"], "-", 
          SuperscriptBox["q2", "2"], "+", 
          SuperscriptBox["q3", "2"]}], ")"}], " ", "Wb"}], "+", 
       RowBox[{"s", " ", "zcg"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5186759871875*^9, 3.518676206328125*^9, 3.518676284359375*^9, {
   3.51867639521875*^9, 3.518676400203125*^9}, 3.5186764470625*^9, {
   3.518677208359375*^9, 3.518677247125*^9}, 3.518677293046875*^9, 
   3.5186775243125*^9, 3.51867760078125*^9, 3.51867780365625*^9, {
   3.518678008953125*^9, 3.518678033890625*^9}, 3.518678543078125*^9, 
   3.51868016915625*^9, 3.5186804281875*^9, 3.5186806148125*^9, 
   3.5186807084375*^9, 3.518862357796875*^9, 3.518862402015625*^9, 
   3.518862807265625*^9, 3.518863331671875*^9, 3.51940482590625*^9, 
   3.51940490084375*^9, 3.5194107238125*^9, 3.519442230171875*^9, 
   3.51944235615625*^9, 3.51944249678125*^9, 3.519442622609375*^9, 
   3.51944280403125*^9, 3.519443092328125*^9, 3.51944315478125*^9, 
   3.519443635640625*^9, 3.51944369628125*^9, 3.51944376115625*^9, {
   3.51944418540625*^9, 3.51944420546875*^9}, 3.51944471771875*^9, 
   3.519543650984375*^9, 3.519805576890625*^9, 3.519805951140625*^9, 
   3.519813960265625*^9, 3.519847791171875*^9, 3.5220425100107656`*^9, 
   3.5220426638850317`*^9, 3.5220426954154744`*^9, 3.5220428646142683`*^9, 
   3.522078607953125*^9, 3.5318234039324923`*^9, 3.531851270859375*^9, 
   3.53185133965625*^9, 3.53185142425*^9, 3.531851790046875*^9, 
   3.531852604703125*^9, 3.531852667984375*^9, 3.531852740734375*^9, 
   3.5318528299375*^9, 3.53185288771875*^9, 3.531852950359375*^9, 
   3.531853087796875*^9, 3.531853142359375*^9, 3.531853279734375*^9, 
   3.53185335509375*^9, 3.531853421515625*^9, 3.53185347228125*^9, 
   3.53185353090625*^9, 3.5318536750625*^9, 3.53185378253125*^9, 
   3.53185399421875*^9, {3.531854131078125*^9, 3.5318541588125*^9}, 
   3.531854245734375*^9, 3.531854284875*^9, 3.531854371078125*^9, 
   3.531854478*^9, 3.531854541296875*^9, 3.531855031609375*^9, 
   3.531857043296875*^9, 3.5321069534375*^9, 3.534158615953125*^9, {
   3.534167499609375*^9, 3.5341675205625*^9}, 3.534167631953125*^9, 
   3.534167817578125*^9, 3.53416789521875*^9, 3.53417433596875*^9, 
   3.53421855703125*^9, 3.5342186035625*^9, 3.5342187838125*^9, 
   3.53422953728125*^9, 3.534230356875*^9, 3.53423070471875*^9, 
   3.534415269953125*^9, 3.534419008109375*^9, 3.53441951415625*^9, 
   3.5344374*^9, 3.534437684921875*^9, 3.534438101921875*^9, 
   3.534485688875*^9, 3.5344860826875*^9, 3.53448615028125*^9, 
   3.538214451204423*^9, 3.53822002514686*^9, 3.538221589540766*^9, 
   3.5382218830526342`*^9, {3.538222189767458*^9, 3.5382221952205133`*^9}, 
   3.538222505790962*^9, 3.5382228744968667`*^9, 3.5382232338533387`*^9, 
   3.538223624551463*^9, 3.5382368679375*^9, 3.5382370446875*^9, 
   3.538281760249*^9, 3.538283344710273*^9, 3.5382841948320827`*^9, 
   3.538284308050108*^9, 3.5382850867013745`*^9, 3.5382882708802805`*^9, 
   3.5382890620059776`*^9, 3.538289949119275*^9, 3.5383951378883667`*^9, 
   3.538395396089839*^9, 3.5383955963229322`*^9, 3.5384803260824757`*^9, 
   3.53850342125*^9, 3.538503688578125*^9, 3.538503780390625*^9, 
   3.53872122917286*^9, 3.53872269596325*^9, 3.538803565370864*^9, 
   3.5388059198708363`*^9, 3.5388061691192408`*^9, 3.5388296377856092`*^9, 
   3.538831857436071*^9, 3.538930131515625*^9, 3.5389775457239113`*^9, 
   3.5389930357467065`*^9, 3.539011396671125*^9, 3.539012268171125*^9, 
   3.539016052639875*^9, 3.541147784804515*^9, 3.541147896584334*^9, 
   3.5411546656556253`*^9, 3.5411570811005507`*^9, 3.5483863441671667`*^9, 
   3.5483863838279853`*^9, {3.55479790390625*^9, 3.5547979190625*^9}, 
   3.5556619283215003`*^9, 3.5562489722414713`*^9, 3.5562493076520452`*^9, 
   3.556249551855853*^9, 3.556276470558715*^9, 3.556276589758788*^9, 
   3.55629617753125*^9, 3.556296286203125*^9, 3.567943965726635*^9, 
   3.5680017709786167`*^9, 3.5680020179183083`*^9, 3.568002883817572*^9, 
   3.568003103320572*^9, 3.5680284836973953`*^9, 3.5680300174107513`*^9, 
   3.5680311774727464`*^9, 3.568128987037161*^9, 3.5681291542457247`*^9, 
   3.5681291852064953`*^9, 3.5681292993050213`*^9, 3.5681433261845026`*^9, 
   3.5681435396897144`*^9, 3.568143646417819*^9, 3.5681438457952223`*^9, 
   3.5681440391152797`*^9, 3.5681466424581823`*^9, 3.5681466730019293`*^9, 
   3.568148835566621*^9, 3.568149706194418*^9, 3.568150126893481*^9, 
   3.5681825653617673`*^9, 3.5681840452616343`*^9, 3.568184685624261*^9, 
   3.568185089720374*^9, 3.5681859457913384`*^9, 3.5681863900357475`*^9, 
   3.5682263445947356`*^9, 3.5682264164308443`*^9, 3.568226542461053*^9, 
   3.568229089490735*^9, 3.5682295852460904`*^9, 3.5682296936022882`*^9, 
   3.573162833455224*^9, 3.5731648924469914`*^9, 3.5732037684980464`*^9, 
   3.5732053386018515`*^9, 3.5732437825308733`*^9, 3.573244342516903*^9, 
   3.573244437106313*^9, 3.576920095389703*^9, 3.5769202200201645`*^9, 
   3.5772928628241577`*^9, 3.5772931228960333`*^9, 3.577451901568363*^9, 
   3.5791605081979446`*^9, 3.590747022208912*^9, 3.590747087467058*^9, 
   3.5907471204471684`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["The assembled set of equations", "Subsubsection"],

Cell[BoxData[
 RowBox[{"systemEquationsDa", ":=", 
  RowBox[{"Flatten", "[", 
   RowBox[{"{", 
    RowBox[{
    "forceEquation", ",", "momentEquation", ",", "kinematicEquation", ",", 
     "navigationEquation"}], "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"boundaryEquations", "=", 
   RowBox[{"{", "}"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"systemEquationsDa", "//", "TableForm"}]], "Input"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox["Fx", "mass"]}], "+", 
       RowBox[{"s", " ", "Ub"}], "-", 
       RowBox[{"Rb", " ", "Vb"}], "+", 
       RowBox[{"Qb", " ", "Wb"}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "q0"}], " ", "q2"}], "+", 
          RowBox[{"q1", " ", "q3"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"g0", "-", 
          FractionBox[
           RowBox[{"kground", " ", "zcg", " ", 
            RowBox[{"onPositive", "[", "zcg", "]"}]}], "mass"]}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox["Fy", "mass"]}], "+", 
       RowBox[{"Rb", " ", "Ub"}], "+", 
       RowBox[{"s", " ", "Vb"}], "-", 
       RowBox[{"Pb", " ", "Wb"}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q0", " ", "q1"}], "+", 
          RowBox[{"q2", " ", "q3"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"g0", "-", 
          FractionBox[
           RowBox[{"kground", " ", "zcg", " ", 
            RowBox[{"onPositive", "[", "zcg", "]"}]}], "mass"]}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox["Fz", "mass"]}], "-", 
       RowBox[{"Qb", " ", "Ub"}], "+", 
       RowBox[{"Pb", " ", "Vb"}], "+", 
       RowBox[{"s", " ", "Wb"}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q0", "2"], "-", 
          SuperscriptBox["q1", "2"], "-", 
          SuperscriptBox["q2", "2"], "+", 
          SuperscriptBox["q3", "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"g0", "-", 
          FractionBox[
           RowBox[{"kground", " ", "zcg", " ", 
            RowBox[{"onPositive", "[", "zcg", "]"}]}], "mass"]}], ")"}]}]}]},
     {
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["Iz", "2"]}], " ", "Qb", " ", "Rb"}], "+", 
        RowBox[{"Iz", " ", 
         RowBox[{"(", 
          RowBox[{"Lb", "+", 
           RowBox[{"Ixz", " ", "Pb", " ", "Qb"}], "+", 
           RowBox[{"Iy", " ", "Qb", " ", "Rb"}], "-", 
           RowBox[{"Ix", " ", "Pb", " ", "s"}]}], ")"}]}], "+", 
        RowBox[{"Ixz", " ", 
         RowBox[{"(", 
          RowBox[{"Nb", "+", 
           RowBox[{"Ix", " ", "Pb", " ", "Qb"}], "-", 
           RowBox[{"Iy", " ", "Pb", " ", "Qb"}], "-", 
           RowBox[{"Ixz", " ", "Qb", " ", "Rb"}], "+", 
           RowBox[{"Ixz", " ", "Pb", " ", "s"}]}], ")"}]}]}], 
       RowBox[{
        SuperscriptBox["Ixz", "2"], "-", 
        RowBox[{"Ix", " ", "Iz"}]}]]},
     {
      FractionBox[
       RowBox[{
        RowBox[{"-", "Mb"}], "+", 
        RowBox[{"Ix", " ", "Pb", " ", "Rb"}], "-", 
        RowBox[{"Iz", " ", "Pb", " ", "Rb"}], "+", 
        RowBox[{"Ixz", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["Pb", "2"], "-", 
           SuperscriptBox["Rb", "2"]}], ")"}]}], "+", 
        RowBox[{"Iy", " ", "Qb", " ", "s"}]}], "Iy"]},
     {
      FractionBox[
       RowBox[{
        RowBox[{"Ixz", " ", 
         RowBox[{"(", 
          RowBox[{"Lb", "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"Ix", "-", "Iy", "+", "Iz"}], ")"}], " ", "Qb", " ", 
            "Rb"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["Ixz", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Pb", " ", "Qb"}], "+", 
           RowBox[{"Rb", " ", "s"}]}], ")"}]}], "+", 
        RowBox[{"Ix", " ", 
         RowBox[{"(", 
          RowBox[{"Nb", "+", 
           RowBox[{"Ix", " ", "Pb", " ", "Qb"}], "-", 
           RowBox[{"Iy", " ", "Pb", " ", "Qb"}], "-", 
           RowBox[{"Iz", " ", "Rb", " ", "s"}]}], ")"}]}]}], 
       RowBox[{
        SuperscriptBox["Ixz", "2"], "-", 
        RowBox[{"Ix", " ", "Iz"}]}]]},
     {
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Pb", " ", "q1"}], "+", 
          RowBox[{"q2", " ", "Qb"}], "+", 
          RowBox[{"q3", " ", "Rb"}]}], ")"}]}], "+", 
       RowBox[{"q0", " ", "s"}]}]},
     {
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "Pb"}], " ", "q0"}], "+", 
          RowBox[{"q3", " ", "Qb"}], "-", 
          RowBox[{"q2", " ", "Rb"}]}], ")"}]}], "+", 
       RowBox[{"q1", " ", "s"}]}]},
     {
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "Pb"}], " ", "q3"}], "-", 
          RowBox[{"q0", " ", "Qb"}], "+", 
          RowBox[{"q1", " ", "Rb"}]}], ")"}]}], "+", 
       RowBox[{"q2", " ", "s"}]}]},
     {
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Pb", " ", "q2"}], "-", 
          RowBox[{"q1", " ", "Qb"}], "-", 
          RowBox[{"q0", " ", "Rb"}]}], ")"}]}], "+", 
       RowBox[{"q3", " ", "s"}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q0", "2"], "+", 
           SuperscriptBox["q1", "2"], "-", 
           SuperscriptBox["q2", "2"], "-", 
           SuperscriptBox["q3", "2"]}], ")"}]}], " ", "Ub"}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q1", " ", "q2"}], "-", 
          RowBox[{"q0", " ", "q3"}]}], ")"}], " ", "Vb"}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q0", " ", "q2"}], "+", 
          RowBox[{"q1", " ", "q3"}]}], ")"}], " ", "Wb"}], "+", 
       RowBox[{"s", " ", "xcg"}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q1", " ", "q2"}], "+", 
          RowBox[{"q0", " ", "q3"}]}], ")"}], " ", "Ub"}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q0", "2"], "-", 
          SuperscriptBox["q1", "2"], "+", 
          SuperscriptBox["q2", "2"], "-", 
          SuperscriptBox["q3", "2"]}], ")"}], " ", "Vb"}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "q0"}], " ", "q1"}], "+", 
          RowBox[{"q2", " ", "q3"}]}], ")"}], " ", "Wb"}], "+", 
       RowBox[{"s", " ", "ycg"}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "q0"}], " ", "q2"}], "+", 
          RowBox[{"q1", " ", "q3"}]}], ")"}], " ", "Ub"}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q0", " ", "q1"}], "+", 
          RowBox[{"q2", " ", "q3"}]}], ")"}], " ", "Vb"}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q0", "2"], "-", 
          SuperscriptBox["q1", "2"], "-", 
          SuperscriptBox["q2", "2"], "+", 
          SuperscriptBox["q3", "2"]}], ")"}], " ", "Wb"}], "+", 
       RowBox[{"s", " ", "zcg"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.518675987234375*^9, 3.518676206390625*^9, 3.518676284375*^9, {
   3.518676395265625*^9, 3.51867640025*^9}, 3.518676447109375*^9, {
   3.51867720840625*^9, 3.51867724715625*^9}, 3.51867729309375*^9, 
   3.518677524359375*^9, 3.518677600828125*^9, 3.518677803703125*^9, {
   3.518678008984375*^9, 3.518678033921875*^9}, 3.51867854315625*^9, 
   3.51868016921875*^9, 3.518680428296875*^9, 3.518680614859375*^9, 
   3.518680708484375*^9, 3.51886235784375*^9, 3.5188624020625*^9, 
   3.518862807296875*^9, 3.51886333171875*^9, 3.519404825953125*^9, 
   3.51940490090625*^9, 3.519410723859375*^9, 3.519442230234375*^9, 
   3.519442356203125*^9, 3.519442496859375*^9, 3.519442622671875*^9, 
   3.5194428040625*^9, 3.519443092375*^9, 3.519443154828125*^9, 
   3.5194436356875*^9, 3.519443696328125*^9, 3.519443761203125*^9, {
   3.519444185484375*^9, 3.51944420553125*^9}, 3.519444717765625*^9, 
   3.519543651046875*^9, 3.5198055769375*^9, 3.519805951171875*^9, 
   3.5198139603125*^9, 3.51984779125*^9, 3.5220425100420156`*^9, 
   3.522042663963155*^9, 3.5220426954623485`*^9, 3.5220428646767664`*^9, 
   3.522078608*^9, 3.5318234040574913`*^9, 3.531851270890625*^9, 
   3.53185133971875*^9, 3.53185142428125*^9, 3.531851790078125*^9, 
   3.53185260475*^9, 3.5318526680625*^9, 3.531852740765625*^9, 
   3.53185282996875*^9, 3.53185288775*^9, 3.531852950390625*^9, 
   3.531853087828125*^9, 3.531853142390625*^9, 3.531853279765625*^9, 
   3.531853355125*^9, 3.531853421546875*^9, 3.531853472296875*^9, 
   3.5318535309375*^9, 3.53185367509375*^9, 3.5318537825625*^9, 
   3.53185399425*^9, {3.531854131109375*^9, 3.53185415884375*^9}, 
   3.531854245765625*^9, 3.53185428490625*^9, 3.53185437109375*^9, 
   3.53185447803125*^9, 3.53185454134375*^9, 3.531855031640625*^9, 
   3.53185704334375*^9, 3.53210695359375*^9, 3.534158616140625*^9, {
   3.53416749978125*^9, 3.5341675206875*^9}, 3.534167632140625*^9, 
   3.534167817703125*^9, 3.534167895359375*^9, 3.53417433609375*^9, 
   3.534218557171875*^9, 3.53421860371875*^9, 3.534218783953125*^9, 
   3.534229537484375*^9, 3.53423035703125*^9, 3.53423070490625*^9, 
   3.53441527021875*^9, 3.53441900825*^9, 3.534419514296875*^9, 
   3.534437400296875*^9, 3.534437685125*^9, 3.53443810209375*^9, 
   3.534485689015625*^9, 3.5344860828125*^9, 3.534486150421875*^9, 
   3.538214451251298*^9, 3.5382200252093596`*^9, 3.5382215896657643`*^9, 
   3.5382218830838833`*^9, {3.5382221897987075`*^9, 3.5382221952673874`*^9}, 
   3.5382225058222136`*^9, 3.5382228745281167`*^9, 3.5382232338845882`*^9, 
   3.538223624582712*^9, 3.53823686809375*^9, 3.5382370448125*^9, 
   3.538281760295875*^9, 3.5382833447415247`*^9, 3.5382841948633327`*^9, 
   3.538284308096983*^9, 3.538285086732624*^9, 3.5382882709115305`*^9, 
   3.538289062037227*^9, 3.538289949259899*^9, 3.5383951379508657`*^9, 
   3.538395396121089*^9, 3.5383955963698072`*^9, 3.5384803261137047`*^9, 
   3.5385034213125*^9, 3.538503688640625*^9, 3.538503780421875*^9, 
   3.538721229219737*^9, 3.538722696010125*^9, 3.538803565402114*^9, 
   3.5388059199020853`*^9, 3.538806169353614*^9, 3.5388296378168592`*^9, 
   3.5388318574829464`*^9, 3.53893013165625*^9, 3.5389775457707863`*^9, 
   3.5389930358717065`*^9, 3.53901139687425*^9, 3.539012268452375*^9, 
   3.539016053514875*^9, 3.541147784851389*^9, 3.5411478966155834`*^9, 
   3.5411546657024994`*^9, 3.5411570812568316`*^9, 3.5483863442765546`*^9, 
   3.5483863838748655`*^9, {3.554797903953125*^9, 3.55479791909375*^9}, 
   3.5556619283840003`*^9, 3.5562489723352118`*^9, 3.55624930769888*^9, 
   3.556249551902708*^9, 3.556276470605589*^9, 3.556276589805662*^9, 
   3.556296177796875*^9, 3.55629628625*^9, 3.567943965788639*^9, 
   3.568001771043623*^9, 3.56800201804432*^9, 3.568002883901572*^9, 
   3.568003103389572*^9, 3.568028483861412*^9, 3.5680300175757685`*^9, 
   3.5680311775247517`*^9, 3.5681289871381664`*^9, 3.5681291545587425`*^9, 
   3.5681291852995005`*^9, 3.5681292993740253`*^9, 3.568143326263507*^9, 
   3.568143539773719*^9, 3.5681436466608324`*^9, 3.5681438458882275`*^9, 
   3.5681440391892843`*^9, 3.5681466425171857`*^9, 3.5681466730519323`*^9, 
   3.5681488356186237`*^9, 3.5681497062534213`*^9, 3.568150126949484*^9, 
   3.5681825654267707`*^9, 3.568184045328638*^9, 3.5681846856732635`*^9, 
   3.5681850897853775`*^9, 3.5681859458563423`*^9, 3.5681863901097517`*^9, 
   3.5682263446857405`*^9, 3.568226416668858*^9, 3.568226542530057*^9, 
   3.5682290898907576`*^9, 3.5682295853060937`*^9, 3.5682296936852927`*^9, 
   3.573162833508227*^9, 3.5731648924879937`*^9, 3.573203768548049*^9, 
   3.573205338647854*^9, 3.573243782577876*^9, 3.573244342656911*^9, 
   3.5732444371673164`*^9, 3.576920095432707*^9, 3.57692022007517*^9, 
   3.577292863024169*^9, 3.577293122946036*^9, 3.577451901617363*^9, 
   3.579160508250948*^9, 3.590747022255714*^9, 3.5907470876074653`*^9, 
   3.5907471204939704`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["The Forces and Moments Acting on the Rocket", "Subsubsection",
 CellChangeTimes->{{3.568103988551231*^9, 3.568103989361312*^9}}],

Cell["\<\
The forces and moments acting on the aircraft are aerodynamic forces and \
moments and forces and moments from the engine\
\>", "Text"],

Cell["\<\
aircraft`F := aircraft`aero`F + engine`F;
aircraft`T := aircraft`aero`T + engine`T;\
\>", "Input",
 PageWidth->WindowWidth,
 CellChangeTimes->{{3.460037191578125*^9, 3.46003721184375*^9}, {
  3.53924679321875*^9, 3.539246810921875*^9}, {3.5681039779791737`*^9, 
  3.568103979330309*^9}, {3.5681487870498457`*^9, 3.5681488021017065`*^9}}],

Cell["torque on x-axis", "Text"],

Cell["Lb := aircraft`T[[1]][[1]]", "Text",
 CellChangeTimes->{{3.519444644671875*^9, 3.519444679109375*^9}, 
   3.5220428413961124`*^9}],

Cell["\<\
The aerodynamic forces acting on the airplane (expressed in body coordinates) \
can be expressed as:\
\>", "Text",
 Evaluatable->False,
 CellChangeTimes->{3.573243716275084*^9}],

Cell[BoxData[
 RowBox[{"aircraft`aero`F", ":=", "body`aero`F"}]], "Input",
 CellChangeTimes->{3.57324367477271*^9}],

Cell["\<\
where the transformation matrix from wind to body coordinates is:\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["L", "BW"], " ", "=", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["L", "y"], "[", "\[Alpha]", "]"}], ".", 
    RowBox[{
     SubscriptBox["L", "z"], "[", 
     RowBox[{"-", "\[Beta]"}], "]"}]}]}], ";"}]], "Input"],

Cell["Moments in body coordinates", "Text"],

Cell[BoxData[
 RowBox[{"aircraft`aero`T", ":=", "body`aero`T"}]], "Input",
 CellChangeTimes->{3.5680881575368023`*^9, 3.5681840192841487`*^9, 
  3.5681844403772335`*^9, 3.5732417544078712`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ktvcl", ":=", 
   RowBox[{"Ctvc", " ", "thrustl"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ktvcr", ":=", 
   RowBox[{"Ctvc", " ", "thrustl"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.568089095435217*^9, 3.5680891404742165`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"exprTVC", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"cxtvcly", ",", 
       RowBox[{"ktvcr", " ", 
        RowBox[{"(", "thetatvcly", ")"}]}]}], "}"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"cxtvclz", ",", 
       RowBox[{"ktvcr", 
        RowBox[{"(", "thetatvclz", ")"}]}]}], "}"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"cxtvcry", ",", 
       RowBox[{"ktvcr", " ", 
        RowBox[{"(", "thetatvcry", ")"}]}]}], "}"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"cxtvcrz", ",", 
       RowBox[{"ktvcr", 
        RowBox[{"(", "thetatvcrz", ")"}]}]}], "}"}]}], " ", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.534481504890625*^9, 3.53448150671875*^9}, {
  3.534481630515625*^9, 3.5344816318125*^9}, {3.5680888206773186`*^9, 
  3.5680888472529755`*^9}, {3.568089013752217*^9, 3.568089040252217*^9}, {
  3.568089075896217*^9, 3.5680890832862167`*^9}, {3.5680891441282167`*^9, 
  3.568089163992217*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Body", "Subsubsection",
 FontSlant->"Italic"],

Cell["The contributions from the body are", "Text"],

Cell["Forces", "Text"],

Cell[BoxData[
 RowBox[{"body`aero`F", ":=", 
  InterpretationBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", "Dragb"}]},
      {
       RowBox[{"-", "Cbody"}]},
      {
       RowBox[{"-", "Liftb"}]}
     }], "\[NoBreak]", ")"}],
   MatrixForm[{-Dragb, -Cbody, -Liftb}]]}]], "Input",
 CellChangeTimes->{{3.5732436136272125`*^9, 3.5732436154033146`*^9}}],

Cell[BoxData[
 RowBox[{"body`aero`F", ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", "Tforceb"}], ",", 
    RowBox[{"-", "Cforceb"}], ",", 
    RowBox[{"-", "Nforceb"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.5732436136272125`*^9, 3.573243657415717*^9}}],

Cell["Moments", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 SubscriptBox["M", 
  OverscriptBox["\[Psi]", "."]]], "Input",
 CellChangeTimes->{3.568229466841318*^9}],

Cell[BoxData["Mdvpsi"], "Output",
 CellChangeTimes->{3.568229475513814*^9, 3.5682295854791036`*^9, 
  3.568229693884304*^9, 3.573162833628234*^9, 3.573164892669004*^9, 
  3.5732037686580553`*^9, 3.5732053388018627`*^9, 3.5732437826688814`*^9, 
  3.573244342761917*^9, 3.573244437259322*^9, 3.576920095523716*^9, 
  3.576920220334196*^9, 3.5772928631461763`*^9, 3.57729312319105*^9, 
  3.5774519017203627`*^9, 3.579160508409957*^9, 3.5907470224585247`*^9, 
  3.590747087716671*^9, 3.590747120587575*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"body`aero`T", ":=", 
  RowBox[{"{", 
   RowBox[{"0", ",", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "Nforceb"}], " ", 
      RowBox[{"(", 
       RowBox[{"xbach", "-", "xbcg"}], ")"}]}], "-", 
     RowBox[{
      SubscriptBox["M", 
       OverscriptBox["\[Theta]", 
        RowBox[{".", " "}]]], " ", "Qbe"}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "Cforceb"}], " ", 
      RowBox[{"(", 
       RowBox[{"xbacv", "-", "xbcg"}], ")"}]}], "-", 
     RowBox[{
      SubscriptBox["M", 
       OverscriptBox["\[Psi]", "."]], "Rbe"}]}]}], " ", "}"}]}]], "Input",
 CellChangeTimes->{{3.5681510977780123`*^9, 3.568151205919197*^9}, 
   3.568151280952489*^9, {3.5681513696405616`*^9, 3.5681513731877646`*^9}, {
   3.5681514161372213`*^9, 3.5681514176093054`*^9}, 3.5681846100939407`*^9, {
   3.568184644776925*^9, 3.568184660410819*^9}, {3.5681850723363795`*^9, 
   3.568185081395898*^9}, {3.5681863559737997`*^9, 3.5681863609660854`*^9}, {
   3.5732435448252773`*^9, 3.5732435579870305`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Propulsion",
 FontSlant->"Italic"]], "Subsubsection"],

Cell["The thrust vector in body coordinates is", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"engine`T", ":=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"yeng", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"thrustl", " ", 
         RowBox[{"Sin", "[", "dezthrustl", "]"}], " ", 
         RowBox[{"Cos", "[", "deythrustl", "]"}]}], "-", 
        RowBox[{"thrustr", " ", 
         RowBox[{"Sin", "[", "dezthrustr", "]"}], " ", 
         RowBox[{"Cos", "[", "deythrustr", "]"}]}]}], ")"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{"xeng", "-", "xbcg"}], ")"}]}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"thrustl", " ", 
         RowBox[{"Sin", "[", "dezthrustl", "]"}], 
         RowBox[{"Cos", "[", "deythrustl", "]"}]}], "+", 
        RowBox[{"thrustr", " ", 
         RowBox[{"Sin", "[", "dezthrustr", "]"}], 
         RowBox[{"Cos", "[", "deythrustr", "]"}]}]}], ")"}]}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{"xeng", "-", "xbcg"}], ")"}]}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"thrustl", " ", 
         RowBox[{"Cos", "[", "dezthrustl", "]"}], " ", 
         RowBox[{"Sin", "[", "deythrustl", "]"}]}], " ", "+", 
        RowBox[{"thrustr", " ", 
         RowBox[{"Cos", "[", "dezthrustr", "]"}], " ", 
         RowBox[{"Sin", "[", "deythrustr", "]"}]}]}], ")"}]}]}], "  ", 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.567880405111807*^9, 3.567880430046233*^9}, 
   3.567880589933378*^9, {3.5678806300296717`*^9, 3.56788064346444*^9}, {
   3.5678806941553392`*^9, 3.5678807311564555`*^9}, {3.567880768684602*^9, 
   3.5678808267689247`*^9}, {3.567880877287814*^9, 3.5678810170858097`*^9}, {
   3.5678811350795584`*^9, 3.567881191522787*^9}, 3.567943793873806*^9, {
   3.5679438574544425`*^9, 3.5679438582744894`*^9}, 3.5680030649205723`*^9, {
   3.5680283597420015`*^9, 3.5680283862856555`*^9}, 3.568028439984025*^9, {
   3.5681440118457203`*^9, 3.568144017543046*^9}, {3.5732036118770885`*^9, 
   3.573203615532297*^9}, {3.5732053154815288`*^9, 3.573205317915668*^9}}],

Cell[BoxData[
 RowBox[{"engine`F", " ", ":=", " ", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"thrustl", " ", 
      RowBox[{"Cos", "[", "deythrustl", "]"}], 
      RowBox[{"Cos", "[", "dezthrustl", "]"}]}], "+", 
     RowBox[{"thrustr", " ", 
      RowBox[{"Cos", "[", "deythrustr", "]"}], 
      RowBox[{"Cos", "[", "dezthrustr", "]"}]}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "thrustl"}], " ", 
      RowBox[{"Sin", "[", "deythrustl", "]"}], 
      RowBox[{"Cos", "[", "dezthrustl", "]"}]}], "-", 
     RowBox[{"thrustr", " ", 
      RowBox[{"Sin", "[", "deythrustr", "]"}], 
      RowBox[{"Cos", "[", "dezthrustr", "]"}]}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "thrustl"}], " ", 
      RowBox[{"Cos", "[", "deythrustl", "]"}], 
      RowBox[{"Sin", "[", "dezthrustl", "]"}]}], "-", 
     RowBox[{"thrustr", " ", 
      RowBox[{"Cos", "[", "deythrustr", "]"}], 
      RowBox[{"Sin", "[", "dezthrustr", "]"}]}]}]}], "\[IndentingNewLine]", 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.5680024386973815`*^9, 3.5680026409596057`*^9}, {
   3.568002758067572*^9, 3.568002776969572*^9}, {3.5680028518355722`*^9, 
   3.568002874338572*^9}, 3.568003071606572*^9, 3.5681491193688536`*^9, {
   3.56814942369526*^9, 3.5681494306776595`*^9}, {3.568149509517169*^9, 
   3.5681495163085575`*^9}}],

Cell["\<\
The total force an moment vectors in body coordinates are then\
\>", "Text",
 CellChangeTimes->{{3.567880379910365*^9, 3.5678803823515053`*^9}, 
   3.568003087731572*^9}],

Cell[BoxData[""], "Input"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"ground`F", ":=", 
   RowBox[{"(", GridBox[{
      {"0"},
      {"0"},
      {"0"}
     }], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.460037253*^9, 3.4600373400625*^9}, {
   3.518863135171875*^9, 3.518863187140625*^9}, 3.518863232328125*^9, {
   3.518863272328125*^9, 3.518863323953125*^9}, 3.519443222*^9, {
   3.538220000709673*^9, 3.538220002444026*^9}, {3.5389929952154565`*^9, 
   3.5389929974654565`*^9}, {3.5411476588373775`*^9, 3.541147663759189*^9}, 
   3.5550567684193497`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Display forces and moments", "Subsubsection"],

Cell["The inverse of the inertia matrix", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Jinv", "//", "MatrixForm"}]], "Input"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox["Iz", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["Ixz", "2"]}], "+", 
        RowBox[{"Ix", " ", "Iz"}]}]], "0", 
      FractionBox["Ixz", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["Ixz", "2"]}], "+", 
        RowBox[{"Ix", " ", "Iz"}]}]]},
     {"0", 
      FractionBox["1", "Iy"], "0"},
     {
      FractionBox["Ixz", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["Ixz", "2"]}], "+", 
        RowBox[{"Ix", " ", "Iz"}]}]], "0", 
      FractionBox["Ix", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["Ixz", "2"]}], "+", 
        RowBox[{"Ix", " ", "Iz"}]}]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.51867598740625*^9, 3.51867620671875*^9, 3.518676284515625*^9, {
   3.518676395453125*^9, 3.518676400421875*^9}, 3.518676447296875*^9, {
   3.51867720859375*^9, 3.518677247328125*^9}, 3.51867729321875*^9, 
   3.518677524765625*^9, 3.518677601546875*^9, 3.518677803890625*^9, {
   3.51867800915625*^9, 3.5186780340625*^9}, 3.518678543359375*^9, 
   3.51868016940625*^9, 3.5186804285*^9, 3.518680615046875*^9, 
   3.51868070865625*^9, 3.51886235825*^9, 3.51886240221875*^9, 
   3.518862807453125*^9, 3.518863331875*^9, 3.519404826171875*^9, 
   3.519404901125*^9, 3.519410724046875*^9, 3.519442230421875*^9, 
   3.519442356375*^9, 3.51944249709375*^9, 3.51944262284375*^9, 
   3.519442804265625*^9, 3.519443092515625*^9, 3.51944315496875*^9, 
   3.519443635859375*^9, 3.5194436965*^9, 3.519443761421875*^9, {
   3.5194441858125*^9, 3.51944420571875*^9}, 3.519444718015625*^9, 
   3.519543651578125*^9, 3.51980557728125*^9, 3.519805951359375*^9, 
   3.5198139605*^9, 3.519847791609375*^9, 3.522042510276389*^9, 
   3.522042664260022*^9, 3.5220426956967173`*^9, 3.5220428649580092`*^9, 
   3.522078608546875*^9, 3.5318234045574884`*^9, 3.531851271046875*^9, 
   3.531851339875*^9, 3.5318514244375*^9, 3.53185179025*^9, 
   3.53185260490625*^9, 3.53185266821875*^9, 3.5318527409375*^9, 
   3.531852830125*^9, 3.53185288790625*^9, 3.5318529505625*^9, 3.531853088*^9,
    3.5318531425625*^9, 3.5318532799375*^9, 3.5318533553125*^9, 
   3.531853421734375*^9, 3.53185347246875*^9, 3.5318535310625*^9, 
   3.531853675234375*^9, 3.53185378271875*^9, 3.53185399440625*^9, {
   3.531854131265625*^9, 3.531854159015625*^9}, 3.531854245921875*^9, 
   3.531854285390625*^9, 3.531854371265625*^9, 3.531854478234375*^9, 
   3.53185454153125*^9, 3.531855031796875*^9, 3.531857043515625*^9, 
   3.532106954890625*^9, 3.534158617390625*^9, {3.534167500890625*^9, 
   3.53416752153125*^9}, 3.53416763321875*^9, 3.534167818640625*^9, 
   3.5341678965*^9, 3.53417433703125*^9, 3.53421855821875*^9, 
   3.53421860475*^9, 3.534218785046875*^9, 3.534229538875*^9, 
   3.53423035809375*^9, 3.53423070671875*^9, 3.534415271546875*^9, 
   3.534419009328125*^9, 3.534419515359375*^9, 3.5344374019375*^9, 
   3.534437687171875*^9, 3.534438103546875*^9, 3.53448568971875*^9, 
   3.534486083328125*^9, 3.534486150875*^9, 3.538214451485675*^9, 
   3.5382200254593563`*^9, 3.538221589868887*^9, 3.5382218831932573`*^9, {
   3.538222189923706*^9, 3.5382221955330095`*^9}, 3.538222505931592*^9, 
   3.5382228747781153`*^9, 3.5382232340252113`*^9, 3.5382236247389603`*^9, 
   3.53823686909375*^9, 3.538237045234375*^9, 3.53828176059275*^9, 
   3.538283344975911*^9, 3.538284194988332*^9, 3.538284308378231*^9, 
   3.5382850868576236`*^9, 3.5382882711615286`*^9, 3.5382890623184757`*^9, 
   3.538289949416148*^9, 3.53839513812274*^9, 3.538395396261713*^9, 
   3.5383955964948063`*^9, 3.5384803262854614`*^9, 3.5385034215*^9, 
   3.538503688859375*^9, 3.53850378065625*^9, 3.5387212294228687`*^9, 
   3.538722696197625*^9, 3.5388035655739927`*^9, 3.538805920027085*^9, 
   3.538806169525488*^9, 3.5388296379574857`*^9, 3.538831857779825*^9, 
   3.538930132609375*^9, 3.538977552848957*^9, 3.5389930364810815`*^9, 
   3.539011398608625*^9, 3.53901227018675*^9, 3.53901605499925*^9, 
   3.5411477849920125`*^9, 3.5411478967562065`*^9, 3.541154665983744*^9, 
   3.541157081506881*^9, 3.5483863447141047`*^9, 3.548386384265536*^9, {
   3.55479790415625*^9, 3.554797919328125*^9}, 3.555661928587126*^9, 
   3.5562489727414207`*^9, 3.5562493079955006`*^9, 3.5562495520588923`*^9, 
   3.556276470824333*^9, 3.5562765899619083`*^9, 3.5562961779375*^9, 
   3.5562962865625*^9, 3.5679439660366526`*^9, 3.568001771464665*^9, 
   3.5680020185603724`*^9, 3.5680028844275723`*^9, 3.568003103735572*^9, 
   3.5680284841754436`*^9, 3.568030017865797*^9, 3.5680311777987785`*^9, 
   3.5681289875901923`*^9, 3.568129154889762*^9, 3.568129185703524*^9, 
   3.5681292998630533`*^9, 3.5681433265445232`*^9, 3.568143540554764*^9, 
   3.5681436469458485`*^9, 3.5681438460552373`*^9, 3.568144039454299*^9, 
   3.5681466426881957`*^9, 3.5681466732669444`*^9, 3.568148835783633*^9, 
   3.568149706472434*^9, 3.568150127250501*^9, 3.5681825659307995`*^9, 
   3.5681840458386674`*^9, 3.5681846859612803`*^9, 3.5681850900543933`*^9, 
   3.5681859463133683`*^9, 3.5681863903617663`*^9, 3.568226345054762*^9, 
   3.5682264168988714`*^9, 3.5682265429280796`*^9, 3.5682290902067757`*^9, 
   3.5682295855801096`*^9, 3.56822969398731*^9, 3.5731628337152386`*^9, 
   3.5731648927450085`*^9, 3.5732037687390604`*^9, 3.573205338892868*^9, 
   3.573243782734885*^9, 3.573244342828921*^9, 3.5732444373243256`*^9, 
   3.5769200955867224`*^9, 3.5769202204092035`*^9, 3.5772928632391815`*^9, 
   3.5772931232690544`*^9, 3.5774519017983627`*^9, 3.579160508481961*^9, 
   3.5907470225521293`*^9, 3.5907470878414774`*^9, 3.5907471206655793`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"body`aero`F", "//", "MatrixForm"}]], "Input"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{"-", "Cd0b"}], " ", "qpress", " ", "Sbh", " ", 
        RowBox[{"Cos", "[", "Alpha", "]"}], " ", 
        RowBox[{"Cos", "[", "Beta", "]"}]}]},
      {
       RowBox[{"CLalphabv", " ", "qpress", " ", "Sbv", " ", 
        RowBox[{"Sin", "[", "Beta", "]"}]}]},
      {
       RowBox[{
        RowBox[{"-", "CLalphabh"}], " ", "qpress", " ", "Sbh", " ", 
        RowBox[{"Sin", "[", "Alpha", "]"}]}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.518675987546875*^9, 3.518676207015625*^9, 3.518676284609375*^9, {
   3.518676395578125*^9, 3.5186764005625*^9}, 3.5186764474375*^9, {
   3.518677208734375*^9, 3.518677247453125*^9}, 3.518677293328125*^9, 
   3.51867752496875*^9, 3.518677602046875*^9, 3.51867780403125*^9, {
   3.518678009296875*^9, 3.518678034203125*^9}, 3.51867854365625*^9, 
   3.518680169609375*^9, 3.518680428703125*^9, 3.518680615265625*^9, 
   3.518680708859375*^9, 3.518862360265625*^9, 3.518862402375*^9, 
   3.51886280759375*^9, 3.518863332046875*^9, 3.51940482653125*^9, 
   3.5194049013125*^9, 3.51941072421875*^9, 3.51944223059375*^9, 
   3.5194423565625*^9, 3.5194424974375*^9, 3.5194426231875*^9, 
   3.51944280446875*^9, 3.519443092671875*^9, 3.519443155140625*^9, 
   3.51944363603125*^9, 3.519443696984375*^9, 3.51944376165625*^9, {
   3.519444186*^9, 3.5194442059375*^9}, 3.5194447181875*^9, 
   3.51954365184375*^9, 3.51980557740625*^9, 3.51980595146875*^9, 
   3.519813960609375*^9, 3.519847791953125*^9, 3.5220425104638877`*^9, 
   3.522042664572514*^9, 3.5220426958529634`*^9, 3.522042865208003*^9, 
   3.522078608859375*^9, 3.5318234047293625`*^9, 3.53185127115625*^9, 
   3.53185134015625*^9, 3.5318514246875*^9, 3.5318517905*^9, 
   3.531852605015625*^9, 3.531852668484375*^9, 3.53185274121875*^9, 
   3.53185283040625*^9, 3.531852888015625*^9, 3.531852950890625*^9, 
   3.53185308809375*^9, 3.53185314284375*^9, 3.531853280203125*^9, 
   3.53185335565625*^9, 3.531853422078125*^9, 3.5318534725625*^9, 
   3.53185353115625*^9, 3.531853675328125*^9, 3.531853782828125*^9, 
   3.531853994765625*^9, {3.531854131375*^9, 3.53185415946875*^9}, 
   3.531854246015625*^9, 3.531854285515625*^9, 3.531854371640625*^9, 
   3.5318544786875*^9, 3.531854541984375*^9, 3.531855031890625*^9, 
   3.53185704396875*^9, 3.532106955515625*^9, 3.534158618*^9, {
   3.534167501640625*^9, 3.534167522109375*^9}, 3.5341676338125*^9, 
   3.534167819140625*^9, 3.53416789709375*^9, 3.5341743375625*^9, 
   3.53421855871875*^9, 3.534218605265625*^9, 3.534218785625*^9, 
   3.534229539421875*^9, 3.534230358546875*^9, 3.534230707359375*^9, 
   3.534415272125*^9, 3.53441900984375*^9, 3.534419515875*^9, 
   3.53443740303125*^9, 3.534437687859375*^9, 3.5344381043125*^9, 
   3.53448569071875*^9, 3.53448608425*^9, 3.53448615171875*^9, 
   3.5382144517669263`*^9, 3.5382200258187265`*^9, 3.538221590103259*^9, 
   3.53822188336513*^9, {3.538222190095579*^9, 3.5382221957986307`*^9}, 
   3.5382225061503487`*^9, 3.5382228749187393`*^9, 3.5382232342752085`*^9, 
   3.5382236249733324`*^9, 3.538236869625*^9, 3.53823704684375*^9, 
   3.538281760749*^9, 3.5382833451321697`*^9, 3.538284195222705*^9, 
   3.5382843085813546`*^9, 3.538285087076372*^9, 3.5382882713334026`*^9, 
   3.5382890625059743`*^9, 3.538289949541147*^9, 3.5383951383727384`*^9, 
   3.538395396558586*^9, 3.5383955967916794`*^9, 3.538480326410376*^9, 
   3.538503421703125*^9, 3.5385036890625*^9, 3.538503780796875*^9, 
   3.5387212296885023`*^9, 3.538722696697625*^9, 3.538803565964625*^9, 
   3.5388059203083334`*^9, 3.538806169697362*^9, 3.538829638082486*^9, 
   3.538831857904827*^9, 3.538930133609375*^9, 3.538977553005208*^9, 
   3.5389930369967065`*^9, 3.53901139962425*^9, 3.539012270983625*^9, 
   3.539016055827375*^9, 3.541147785117011*^9, 3.5411478969905787`*^9, 
   3.541154666155616*^9, 3.541157081663162*^9, 3.5483863449485073`*^9, 
   3.5483863844374304`*^9, {3.554797904390625*^9, 3.554797919515625*^9}, 
   3.555661928743376*^9, 3.556248973272616*^9, 3.556249308198451*^9, 
   3.556249552433734*^9, 3.5562764712305727`*^9, 3.5562765902119017`*^9, 
   3.5562961781875*^9, 3.556296286796875*^9, 3.567943966263666*^9, 
   3.568001771753694*^9, 3.5680020188353996`*^9, 3.568002884635572*^9, 
   3.568003103956572*^9, 3.568028484381464*^9, 3.568030018065817*^9, 
   3.5680311780268016`*^9, 3.5681289876731973`*^9, 3.568129154917763*^9, 
   3.5681291857505264`*^9, 3.5681292999020557`*^9, 3.5681433265915256`*^9, 
   3.5681435406257677`*^9, 3.568143646999852*^9, 3.568143846086239*^9, 
   3.56814403964331*^9, 3.568146642716197*^9, 3.568146673292946*^9, 
   3.568148835815635*^9, 3.568149706507436*^9, 3.5681501272875032`*^9, 
   3.568182565964802*^9, 3.568184045872669*^9, 3.5681846860202837`*^9, 
   3.568185090088395*^9, 3.5681859463523703`*^9, 3.5681863903897676`*^9, 
   3.5682263451167655`*^9, 3.5682264169558744`*^9, 3.5682265429770823`*^9, 
   3.568229090250778*^9, 3.5682295856081114`*^9, 3.5682296940203123`*^9, 
   3.5731628337432404`*^9, 3.5731648927690096`*^9, 3.573203768766062*^9, 
   3.573205338918869*^9, 3.573243782757887*^9, 3.573244342853922*^9, 
   3.5732444373483267`*^9, 3.5769200956107244`*^9, 3.576920220434206*^9, 
   3.5772928632671833`*^9, 3.5772931232930555`*^9, 3.5774519018243628`*^9, 
   3.579160508507962*^9, 3.59074702256773*^9, 3.590747087857078*^9, 
   3.59074712068118*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"body`aero`T", "//", "MatrixForm"}]], "Input"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"0"},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", "Mdvtheta"}], " ", 
         RowBox[{"(", 
          RowBox[{"Qb", "+", "wturby"}], ")"}]}], "-", 
        RowBox[{"CLalphabh", " ", "qpress", " ", "Sbh", " ", 
         RowBox[{"(", 
          RowBox[{"xbach", "-", "xbcg"}], ")"}], " ", 
         RowBox[{"Sin", "[", "Alpha", "]"}]}]}]},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", "Mdvpsi"}], " ", 
         RowBox[{"(", 
          RowBox[{"Rb", "+", "wturbz"}], ")"}]}], "+", 
        RowBox[{"CLalphabv", " ", "qpress", " ", "Sbv", " ", 
         RowBox[{"(", 
          RowBox[{"xbacv", "-", "xbcg"}], ")"}], " ", 
         RowBox[{"Sin", "[", "Beta", "]"}]}]}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.518675987578125*^9, 3.518676207046875*^9, 3.518676284625*^9, {
   3.518676395609375*^9, 3.518676400578125*^9}, 3.51867644746875*^9, {
   3.51867720875*^9, 3.518677247484375*^9}, 3.51867729334375*^9, 
   3.518677525*^9, 3.5186776020625*^9, 3.518677804046875*^9, {
   3.5186780093125*^9, 3.51867803421875*^9}, 3.518678543703125*^9, 
   3.518680169640625*^9, 3.518680428734375*^9, 3.5186806153125*^9, 
   3.518680708890625*^9, 3.5188623603125*^9, 3.518862402390625*^9, 
   3.518862807625*^9, 3.5188633320625*^9, 3.5194048265625*^9, 
   3.519404901328125*^9, 3.519410724234375*^9, 3.519442230609375*^9, 
   3.519442356578125*^9, 3.519442497484375*^9, 3.51944262321875*^9, 
   3.519442804484375*^9, 3.5194430926875*^9, 3.51944315515625*^9, 
   3.519443636046875*^9, 3.519443697015625*^9, 3.5194437616875*^9, {
   3.51944418603125*^9, 3.51944420596875*^9}, 3.51944471821875*^9, 
   3.519543651875*^9, 3.519805577421875*^9, 3.519805951484375*^9, 
   3.519813960625*^9, 3.519847792*^9, 3.5220425104951377`*^9, 
   3.522042664603763*^9, 3.522042695868588*^9, 3.522042865239252*^9, 
   3.522078608890625*^9, 3.5318234047449875`*^9, 3.53185127140625*^9, 
   3.531851340171875*^9, 3.531851424703125*^9, 3.531851790515625*^9, 
   3.53185260503125*^9, 3.5318526685*^9, 3.531852741234375*^9, 
   3.53185283040625*^9, 3.53185288803125*^9, 3.531852950890625*^9, 
   3.531853088109375*^9, 3.531853142859375*^9, 3.53185328021875*^9, 
   3.531853355671875*^9, 3.53185342209375*^9, 3.531853472578125*^9, 
   3.53185353115625*^9, 3.531853675328125*^9, 3.53185378284375*^9, 
   3.53185399478125*^9, {3.531854131640625*^9, 3.531854159484375*^9}, 
   3.53185424603125*^9, 3.53185428553125*^9, 3.53185437165625*^9, 
   3.531854478703125*^9, 3.531854542015625*^9, 3.53185503215625*^9, 
   3.531857044*^9, 3.53210695559375*^9, 3.534158618078125*^9, {
   3.53416750171875*^9, 3.5341675221875*^9}, 3.534167633890625*^9, 
   3.534167819203125*^9, 3.5341678971875*^9, 3.534174337640625*^9, 
   3.534218558796875*^9, 3.534218605328125*^9, 3.534218785703125*^9, 
   3.5342295395*^9, 3.534230358609375*^9, 3.534230707453125*^9, 
   3.534415272203125*^9, 3.53441900990625*^9, 3.534419515953125*^9, 
   3.5344374031875*^9, 3.534437687984375*^9, 3.53443810440625*^9, 
   3.53448569078125*^9, 3.5344860843125*^9, 3.53448615175*^9, 
   3.538214451782552*^9, 3.5382200258343515`*^9, 3.5382215901188836`*^9, 
   3.5382218833807545`*^9, {3.5382221901112037`*^9, 3.5382221958142557`*^9}, 
   3.5382225061659746`*^9, 3.5382228749343643`*^9, 3.5382232342908335`*^9, 
   3.5382236249889574`*^9, 3.538236869703125*^9, 3.538237046921875*^9, 
   3.538281760764625*^9, 3.5382833451634207`*^9, 3.53828419523833*^9, 
   3.5382843085969796`*^9, 3.538285087091997*^9, 3.5382882713646526`*^9, 
   3.5382890625215993`*^9, 3.538289949541147*^9, 3.538395138388363*^9, 
   3.538395396574211*^9, 3.5383955968073044`*^9, 3.5384803264416046`*^9, 
   3.53850342171875*^9, 3.53850368909375*^9, 3.5385037808125*^9, 
   3.5387212297041273`*^9, 3.5387226967445*^9, 3.5388035659958754`*^9, 
   3.5388059203395824`*^9, 3.538806169728612*^9, 3.5388296380981116`*^9, 
   3.538831857936077*^9, 3.538930133703125*^9, 3.538977553036458*^9, 
   3.5389930372779565`*^9, 3.53901139968675*^9, 3.539012271093*^9, 
   3.539016055921125*^9, 3.5411477851326356`*^9, 3.5411478970062037`*^9, 
   3.541154666186865*^9, 3.5411570816944184`*^9, 3.5483863449797606`*^9, 
   3.548386384468684*^9, {3.554797904421875*^9, 3.55479791953125*^9}, 
   3.555661928774626*^9, 3.5562489733038626`*^9, 3.5562493082296743`*^9, 
   3.556249552480589*^9, 3.5562764712618217`*^9, 3.5562765902587757`*^9, 
   3.55629617821875*^9, 3.556296286828125*^9, 3.567943966286667*^9, 
   3.568001771781697*^9, 3.5680020189114075`*^9, 3.568002884662572*^9, 
   3.568003103985572*^9, 3.5680284844094667`*^9, 3.5680300180998206`*^9, 
   3.5680311780588045`*^9, 3.568128987733201*^9, 3.568129154972766*^9, 
   3.5681291857955294`*^9, 3.568129299960059*^9, 3.568143326634528*^9, 
   3.5681435407817764`*^9, 3.5681436470468545`*^9, 3.5681438461132407`*^9, 
   3.5681440396833124`*^9, 3.5681466427411985`*^9, 3.568146673323948*^9, 
   3.568148835839637*^9, 3.5681497065324373`*^9, 3.5681501273265057`*^9, 
   3.5681825659978037`*^9, 3.5681840459286723`*^9, 3.5681846860742865`*^9, 
   3.5681850901433983`*^9, 3.5681859463933725`*^9, 3.56818639042377*^9, 
   3.5682263451697683`*^9, 3.5682264170058775`*^9, 3.568226543043086*^9, 
   3.568229090316782*^9, 3.5682295856461134`*^9, 3.5682296942043223`*^9, 
   3.5731628337692413`*^9, 3.5731648927950115`*^9, 3.5732037687960634`*^9, 
   3.573205338945871*^9, 3.573243782782888*^9, 3.5732443428789234`*^9, 
   3.5732444373723283`*^9, 3.5769200956327267`*^9, 3.5769202204602084`*^9, 
   3.577292863295185*^9, 3.5772931233210573`*^9, 3.5774519018493633`*^9, 
   3.5791605085329638`*^9, 3.5907470225989313`*^9, 3.59074708788828*^9, 
   3.5907471207903852`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"engine`F", "//", "MatrixForm"}]], "Input"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{"thrustl", " ", 
         RowBox[{"Cos", "[", "thetatvcly", "]"}], " ", 
         RowBox[{"Cos", "[", "thetatvclz", "]"}]}], "+", 
        RowBox[{"thrustr", " ", 
         RowBox[{"Cos", "[", "thetatvcry", "]"}], " ", 
         RowBox[{"Cos", "[", "thetatvcrz", "]"}]}]}]},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", "thrustl"}], " ", 
         RowBox[{"Cos", "[", "thetatvclz", "]"}], " ", 
         RowBox[{"Sin", "[", "thetatvcly", "]"}]}], "-", 
        RowBox[{"thrustr", " ", 
         RowBox[{"Cos", "[", "thetatvcrz", "]"}], " ", 
         RowBox[{"Sin", "[", "thetatvcry", "]"}]}]}]},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", "thrustl"}], " ", 
         RowBox[{"Cos", "[", "thetatvcly", "]"}], " ", 
         RowBox[{"Sin", "[", "thetatvclz", "]"}]}], "-", 
        RowBox[{"thrustr", " ", 
         RowBox[{"Cos", "[", "thetatvcry", "]"}], " ", 
         RowBox[{"Sin", "[", "thetatvcrz", "]"}]}]}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.51867598759375*^9, 3.51867620709375*^9, 3.518676284640625*^9, {
   3.518676395625*^9, 3.51867640059375*^9}, 3.518676447484375*^9, {
   3.51867720878125*^9, 3.5186772475*^9}, 3.518677293359375*^9, 
   3.51867752503125*^9, 3.51867760225*^9, 3.518677804109375*^9, {
   3.518678009328125*^9, 3.518678034234375*^9}, 3.518678543734375*^9, 
   3.518680169671875*^9, 3.518680428765625*^9, 3.51868061534375*^9, 
   3.518680708921875*^9, 3.51886236034375*^9, 3.518862402421875*^9, 
   3.518862807640625*^9, 3.518863332078125*^9, 3.51940482659375*^9, 
   3.519404901359375*^9, 3.519410724265625*^9, 3.519442230640625*^9, 
   3.519442356609375*^9, 3.51944249753125*^9, 3.519442623265625*^9, 
   3.519442804515625*^9, 3.51944309271875*^9, 3.5194431551875*^9, 
   3.519443636078125*^9, 3.519443697046875*^9, 3.51944376171875*^9, {
   3.5194441860625*^9, 3.519444206*^9}, 3.51944471825*^9, 3.51954365190625*^9,
    3.5198055774375*^9, 3.5198059515*^9, 3.519813960640625*^9, 
   3.519847792046875*^9, 3.522042510526387*^9, 3.522042664619388*^9, 
   3.5220426958842125`*^9, 3.5220428652861257`*^9, 3.522078608921875*^9, 
   3.5318234047762375`*^9, 3.531851271421875*^9, 3.5318513401875*^9, 
   3.53185142471875*^9, 3.53185179053125*^9, 3.531852605046875*^9, 
   3.531852668515625*^9, 3.53185274125*^9, 3.531852830421875*^9, 
   3.53185288821875*^9, 3.53185295090625*^9, 3.53185308828125*^9, 
   3.531853142875*^9, 3.531853280234375*^9, 3.5318533556875*^9, 
   3.531853422109375*^9, 3.531853472578125*^9, 3.531853531171875*^9, 
   3.53185367534375*^9, 3.531853782859375*^9, 3.531853994796875*^9, {
   3.53185413165625*^9, 3.5318541595*^9}, 3.531854246046875*^9, 
   3.53185428553125*^9, 3.531854371671875*^9, 3.53185447871875*^9, 
   3.53185454203125*^9, 3.531855032171875*^9, 3.531857044015625*^9, 
   3.532106955703125*^9, 3.53415861815625*^9, {3.534167501796875*^9, 
   3.534167522265625*^9}, 3.53416763396875*^9, 3.53416781928125*^9, 
   3.534167897265625*^9, 3.53417433771875*^9, 3.534218558875*^9, 
   3.53421860540625*^9, 3.534218785796875*^9, 3.5342295395625*^9, 
   3.534230358671875*^9, 3.534230707546875*^9, 3.534415272296875*^9, 
   3.534419009984375*^9, 3.53441951603125*^9, 3.534437403296875*^9, 
   3.534437688140625*^9, 3.5344381045*^9, 3.53448569084375*^9, 
   3.534486084375*^9, 3.534486151796875*^9, 3.538214451813802*^9, 
   3.5382200258656015`*^9, 3.538221590150133*^9, 3.5382218834120045`*^9, {
   3.538222190126828*^9, 3.538222195845505*^9}, 3.5382225061972256`*^9, 
   3.538222874965614*^9, 3.538223234306458*^9, 3.5382236250202065`*^9, 
   3.53823686978125*^9, 3.538237046984375*^9, 3.53828176078025*^9, 
   3.5382833451946726`*^9, 3.538284195253955*^9, 3.538284308628229*^9, 
   3.538285087107622*^9, 3.5382882713802776`*^9, 3.538289062552849*^9, 
   3.538289949556772*^9, 3.538395138403988*^9, 3.538395396605461*^9, 
   3.5383955968385544`*^9, 3.538480326457219*^9, 3.53850342175*^9, 
   3.538503689109375*^9, 3.538503780828125*^9, 3.5387212297353783`*^9, 
   3.538722696978875*^9, 3.538803566011501*^9, 3.5388059203552074`*^9, 
   3.538806169744237*^9, 3.5388296381137366`*^9, 3.5388318579673276`*^9, 
   3.5389301338125*^9, 3.538977553052083*^9, 3.5389930373560815`*^9, 
   3.53901139974925*^9, 3.5390122712805*^9, 3.539016056014875*^9, 
   3.54114778514826*^9, 3.5411478970218287`*^9, 3.54115466620249*^9, 
   3.541157081710047*^9, 3.548386345011014*^9, 3.548386384484311*^9, {
   3.5547979044375*^9, 3.5547979195625*^9}, 3.5556619287902503`*^9, 
   3.556248973350733*^9, 3.5562493082608976`*^9, 3.5562495525899177`*^9, 
   3.5562764712930713`*^9, 3.5562765902900248`*^9, 3.55629617825*^9, 
   3.556296286859375*^9, 3.5679439663476706`*^9, 3.5680017718086996`*^9, 
   3.56800201893741*^9, 3.5680028846895723`*^9, 3.568003104015572*^9, 
   3.5680284844374695`*^9, 3.5680300181268234`*^9, 3.5680311780948086`*^9, 
   3.5681289877862034`*^9, 3.5681291550307693`*^9, 3.5681291858365316`*^9, 
   3.5681293000050616`*^9, 3.5681433266905313`*^9, 3.5681435409367857`*^9, 
   3.568143647077856*^9, 3.568143846438259*^9, 3.568144039710314*^9, 
   3.568146642785201*^9, 3.56814667336195*^9, 3.5681488358646383`*^9, 
   3.568149706566439*^9, 3.568150127517516*^9, 3.5681825660358057`*^9, 
   3.568184045964675*^9, 3.5681846861002884`*^9, 3.5681850901944013`*^9, 
   3.5681859464363756`*^9, 3.568186390615781*^9, 3.5682263452177715`*^9, 
   3.5682264170588803`*^9, 3.568226543092089*^9, 3.5682290903817854`*^9, 
   3.568229585690116*^9, 3.568229694234324*^9, 3.5731628338022437`*^9, 
   3.5731648928190126`*^9, 3.5732037688320656`*^9, 3.573205338977873*^9, 
   3.5732437828068895`*^9, 3.573244342903925*^9, 3.57324443739733*^9, 
   3.5769200958287463`*^9, 3.576920220485211*^9, 3.5772928633221865`*^9, 
   3.5772931233520594`*^9, 3.577451901877363*^9, 3.579160508559965*^9, 
   3.590747022630133*^9, 3.5907470879194813`*^9, 3.590747120821587*^9}]
}, Open  ]],

Cell["", "Text",
 CellChangeTimes->{{3.5680023336358767`*^9, 3.5680023408665996`*^9}, {
  3.568002398669379*^9, 3.568002400436556*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"engine`T", "//", "MatrixForm"}]], "Input"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{"yeng", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"thrustl", " ", 
           RowBox[{"Cos", "[", "thetatvcly", "]"}], " ", 
           RowBox[{"Sin", "[", "thetatvclz", "]"}]}], "-", 
          RowBox[{"thrustr", " ", 
           RowBox[{"Cos", "[", "thetatvcry", "]"}], " ", 
           RowBox[{"Sin", "[", "thetatvcrz", "]"}]}]}], ")"}]}]},
      {
       RowBox[{
        RowBox[{"(", 
         RowBox[{"xbcg", "-", "xeng"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"thrustl", " ", 
           RowBox[{"Cos", "[", "thetatvcly", "]"}], " ", 
           RowBox[{"Sin", "[", "thetatvclz", "]"}]}], "+", 
          RowBox[{"thrustr", " ", 
           RowBox[{"Cos", "[", "thetatvcry", "]"}], " ", 
           RowBox[{"Sin", "[", "thetatvcrz", "]"}]}]}], ")"}]}]},
      {
       RowBox[{
        RowBox[{"(", 
         RowBox[{"xbcg", "-", "xeng"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"thrustl", " ", 
           RowBox[{"Cos", "[", "thetatvclz", "]"}], " ", 
           RowBox[{"Sin", "[", "thetatvcly", "]"}]}], "+", 
          RowBox[{"thrustr", " ", 
           RowBox[{"Cos", "[", "thetatvcrz", "]"}], " ", 
           RowBox[{"Sin", "[", "thetatvcry", "]"}]}]}], ")"}]}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.573203768863067*^9, 3.5732053390038743`*^9, 
  3.5732437828308907`*^9, 3.5732443429289265`*^9, 3.5732444374213314`*^9, 
  3.5769200958517485`*^9, 3.5769202205112133`*^9, 3.577292863355188*^9, 
  3.577293123385061*^9, 3.577451901902363*^9, 3.5791605085849667`*^9, 
  3.590747022645734*^9, 3.5907470879506826`*^9, 3.590747120852789*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"aircraft`F", "//", "MatrixForm"}]], "Input"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", "Cd0b"}], " ", "qpress", " ", "Sbh", " ", 
         RowBox[{"Cos", "[", "Alpha", "]"}], " ", 
         RowBox[{"Cos", "[", "Beta", "]"}]}], "+", 
        RowBox[{"thrustl", " ", 
         RowBox[{"Cos", "[", "thetatvcly", "]"}], " ", 
         RowBox[{"Cos", "[", "thetatvclz", "]"}]}], "+", 
        RowBox[{"thrustr", " ", 
         RowBox[{"Cos", "[", "thetatvcry", "]"}], " ", 
         RowBox[{"Cos", "[", "thetatvcrz", "]"}]}]}]},
      {
       RowBox[{
        RowBox[{"CLalphabv", " ", "qpress", " ", "Sbv", " ", 
         RowBox[{"Sin", "[", "Beta", "]"}]}], "-", 
        RowBox[{"thrustl", " ", 
         RowBox[{"Cos", "[", "thetatvclz", "]"}], " ", 
         RowBox[{"Sin", "[", "thetatvcly", "]"}]}], "-", 
        RowBox[{"thrustr", " ", 
         RowBox[{"Cos", "[", "thetatvcrz", "]"}], " ", 
         RowBox[{"Sin", "[", "thetatvcry", "]"}]}]}]},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", "CLalphabh"}], " ", "qpress", " ", "Sbh", " ", 
         RowBox[{"Sin", "[", "Alpha", "]"}]}], "-", 
        RowBox[{"thrustl", " ", 
         RowBox[{"Cos", "[", "thetatvcly", "]"}], " ", 
         RowBox[{"Sin", "[", "thetatvclz", "]"}]}], "-", 
        RowBox[{"thrustr", " ", 
         RowBox[{"Cos", "[", "thetatvcry", "]"}], " ", 
         RowBox[{"Sin", "[", "thetatvcrz", "]"}]}]}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.518675987640625*^9, 3.5186762071875*^9, 3.518676284671875*^9, {
   3.51867639565625*^9, 3.518676400640625*^9}, 3.51867644753125*^9, {
   3.5186772088125*^9, 3.51867724753125*^9}, 3.518677293390625*^9, 
   3.518677525078125*^9, 3.518677602609375*^9, 3.51867780415625*^9, {
   3.518678009375*^9, 3.51867803428125*^9}, 3.51867854384375*^9, 
   3.51868016975*^9, 3.518680428828125*^9, 3.518680615421875*^9, 
   3.518680708984375*^9, 3.5188623605625*^9, 3.51886240246875*^9, 
   3.5188628076875*^9, 3.518863332125*^9, 3.51940482665625*^9, 
   3.51940490140625*^9, 3.5194107243125*^9, 3.5194422306875*^9, 
   3.51944235665625*^9, 3.519442497625*^9, 3.51944262334375*^9, 
   3.5194428045625*^9, 3.51944309275*^9, 3.519443155234375*^9, 
   3.519443636125*^9, 3.519443697109375*^9, 3.51944376178125*^9, {
   3.519444186109375*^9, 3.519444206078125*^9}, 3.519444718296875*^9, 
   3.519543651984375*^9, 3.519805577484375*^9, 3.51980595153125*^9, 
   3.519813960671875*^9, 3.519847792484375*^9, 3.522042510573262*^9, 
   3.5220426646818867`*^9, 3.5220426959310865`*^9, 3.522042865348624*^9, 
   3.522078608984375*^9, 3.5318234048231115`*^9, 3.531851271453125*^9, 
   3.53185134021875*^9, 3.53185142475*^9, 3.5318517905625*^9, 
   3.531852605078125*^9, 3.531852668546875*^9, 3.531852741265625*^9, 
   3.531852830484375*^9, 3.53185288825*^9, 3.5318529509375*^9, 
   3.5318530883125*^9, 3.53185314290625*^9, 3.53185328025*^9, 
   3.53185335571875*^9, 3.531853422125*^9, 3.531853472609375*^9, 
   3.531853531203125*^9, 3.531853675375*^9, 3.531853782890625*^9, 
   3.531853994828125*^9, {3.5318541316875*^9, 3.53185415953125*^9}, 
   3.5318542463125*^9, 3.531854285578125*^9, 3.531854371703125*^9, 
   3.53185447875*^9, 3.5318545420625*^9, 3.531855032203125*^9, 
   3.5318570440625*^9, 3.532106955859375*^9, 3.5341586183125*^9, {
   3.53416750196875*^9, 3.534167522421875*^9}, 3.534167634125*^9, 
   3.5341678194375*^9, 3.5341678974375*^9, 3.534174337875*^9, 
   3.534218559015625*^9, 3.5342186055625*^9, 3.5342187859375*^9, 
   3.534229539703125*^9, 3.534230358796875*^9, 3.534230707734375*^9, 
   3.53441527246875*^9, 3.534419010140625*^9, 3.5344195161875*^9, 
   3.534437403640625*^9, 3.5344376883125*^9, 3.534438104703125*^9, 
   3.534485691*^9, 3.5344860845*^9, 3.534486151875*^9, 3.538214451876302*^9, 
   3.5382200259281006`*^9, 3.5382215901970077`*^9, 3.5382218835370026`*^9, {
   3.538222190251827*^9, 3.5382221959080043`*^9}, 3.5382225062284765`*^9, 
   3.5382228749968634`*^9, 3.5382232343533325`*^9, 3.5382236250514565`*^9, 
   3.5382368699375*^9, 3.538237047140625*^9, 3.538281760827125*^9, 
   3.53828334524155*^9, 3.53828419530083*^9, 3.538284308675104*^9, 
   3.538285087138872*^9, 3.538288271442777*^9, 3.538289062599724*^9, 
   3.538289949588022*^9, 3.538395138450863*^9, 3.53839539663671*^9, 
   3.538395596869804*^9, 3.5384803264884477`*^9, 3.538503421796875*^9, 
   3.53850368915625*^9, 3.538503780875*^9, 3.5387212297666297`*^9, 
   3.53872269702575*^9, 3.5388035661052523`*^9, 3.5388059203864574`*^9, 
   3.5388061697911115`*^9, 3.5388296382699876`*^9, 3.538831858014203*^9, 
   3.538930134015625*^9, 3.5389775530989585`*^9, 3.5389930374810815`*^9, 
   3.539011399889875*^9, 3.539012271483625*^9, 3.539016056233625*^9, 
   3.54114778517951*^9, 3.5411478970530777`*^9, 3.541154666249364*^9, 
   3.541157081756931*^9, 3.5483863450735216`*^9, 3.5483863845311913`*^9, {
   3.55479790453125*^9, 3.554797919609375*^9}, 3.555661928837126*^9, 
   3.5562489735694604`*^9, 3.556249308323344*^9, 3.5562495526992464`*^9, 
   3.5562764714024434`*^9, 3.556276590368148*^9, 3.556296178328125*^9, 
   3.556296286921875*^9, 3.5679439664156747`*^9, 3.5680017718707056`*^9, 
   3.5680020189954157`*^9, 3.5680028847515717`*^9, 3.568003104173572*^9, 
   3.5680284844964757`*^9, 3.568030018180829*^9, 3.5680311781608152`*^9, 
   3.5681289879382124`*^9, 3.5681291551537766`*^9, 3.5681291859215364`*^9, 
   3.5681293001550703`*^9, 3.568143326823539*^9, 3.5681435411107955`*^9, 
   3.568143647215864*^9, 3.5681438465152636`*^9, 3.5681440398663225`*^9, 
   3.568146642852205*^9, 3.5681466734279537`*^9, 3.5681488359286413`*^9, 
   3.5681497066574445`*^9, 3.5681501276175222`*^9, 3.5681825660978093`*^9, 
   3.5681840460516796`*^9, 3.568184686396305*^9, 3.568185090505419*^9, 
   3.5681859465473814`*^9, 3.568186390698786*^9, 3.5682263453247776`*^9, 
   3.568226417188888*^9, 3.5682265431930947`*^9, 3.568229090488792*^9, 
   3.5682295857911215`*^9, 3.5682296943313293`*^9, 3.5731628338692474`*^9, 
   3.5731648928690157`*^9, 3.5732037688960695`*^9, 3.5732053390298758`*^9, 
   3.5732437828538923`*^9, 3.573244342953928*^9, 3.573244437446333*^9, 
   3.576920095876751*^9, 3.576920220537216*^9, 3.57729286338619*^9, 
   3.5772931234110622`*^9, 3.5774519019293633`*^9, 3.579160508609968*^9, 
   3.5907470226769357`*^9, 3.590747087997485*^9, 3.5907471208839903`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"aircraft`T", "//", "MatrixForm"}]], "Input"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{"yeng", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"thrustl", " ", 
           RowBox[{"Cos", "[", "thetatvcly", "]"}], " ", 
           RowBox[{"Sin", "[", "thetatvclz", "]"}]}], "-", 
          RowBox[{"thrustr", " ", 
           RowBox[{"Cos", "[", "thetatvcry", "]"}], " ", 
           RowBox[{"Sin", "[", "thetatvcrz", "]"}]}]}], ")"}]}]},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", "Mdvtheta"}], " ", 
         RowBox[{"(", 
          RowBox[{"Qb", "+", "wturby"}], ")"}]}], "-", 
        RowBox[{"CLalphabh", " ", "qpress", " ", "Sbh", " ", 
         RowBox[{"(", 
          RowBox[{"xbach", "-", "xbcg"}], ")"}], " ", 
         RowBox[{"Sin", "[", "Alpha", "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"xbcg", "-", "xeng"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"thrustl", " ", 
            RowBox[{"Cos", "[", "thetatvcly", "]"}], " ", 
            RowBox[{"Sin", "[", "thetatvclz", "]"}]}], "+", 
           RowBox[{"thrustr", " ", 
            RowBox[{"Cos", "[", "thetatvcry", "]"}], " ", 
            RowBox[{"Sin", "[", "thetatvcrz", "]"}]}]}], ")"}]}]}]},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", "Mdvpsi"}], " ", 
         RowBox[{"(", 
          RowBox[{"Rb", "+", "wturbz"}], ")"}]}], "+", 
        RowBox[{"CLalphabv", " ", "qpress", " ", "Sbv", " ", 
         RowBox[{"(", 
          RowBox[{"xbacv", "-", "xbcg"}], ")"}], " ", 
         RowBox[{"Sin", "[", "Beta", "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"xbcg", "-", "xeng"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"thrustl", " ", 
            RowBox[{"Cos", "[", "thetatvclz", "]"}], " ", 
            RowBox[{"Sin", "[", "thetatvcly", "]"}]}], "+", 
           RowBox[{"thrustr", " ", 
            RowBox[{"Cos", "[", "thetatvcrz", "]"}], " ", 
            RowBox[{"Sin", "[", "thetatvcry", "]"}]}]}], ")"}]}]}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.518675987734375*^9, 3.51867620721875*^9, 3.518676284671875*^9, {
   3.5186763956875*^9, 3.51867640065625*^9}, 3.518676447546875*^9, {
   3.518677208828125*^9, 3.5186772475625*^9}, 3.51867729340625*^9, 
   3.518677525109375*^9, 3.518677602640625*^9, 3.518677804171875*^9, {
   3.518678009390625*^9, 3.518678034296875*^9}, 3.518678543875*^9, 
   3.51868016978125*^9, 3.518680428859375*^9, 3.518680615453125*^9, 
   3.518680709015625*^9, 3.518862360625*^9, 3.518862402484375*^9, 
   3.518862807703125*^9, 3.518863332140625*^9, 3.519404826703125*^9, 
   3.5194049014375*^9, 3.519410724328125*^9, 3.519442230703125*^9, 
   3.5194423566875*^9, 3.51944249775*^9, 3.519442623390625*^9, 
   3.519442804625*^9, 3.51944309278125*^9, 3.51944315525*^9, 
   3.51944363615625*^9, 3.51944369715625*^9, 3.519443762*^9, {
   3.519444186140625*^9, 3.519444206109375*^9}, 3.519444718328125*^9, 
   3.519543652015625*^9, 3.5198055775625*^9, 3.519805951546875*^9, 
   3.5198139606875*^9, 3.51984779253125*^9, 3.522042510588887*^9, 
   3.5220426647131357`*^9, 3.5220426959467106`*^9, 3.5220428653798733`*^9, 
   3.522078609015625*^9, 3.5318234048543615`*^9, 3.531851271484375*^9, 
   3.53185134025*^9, 3.531851424765625*^9, 3.5318517905625*^9, 
   3.53185260509375*^9, 3.5318526685625*^9, 3.531852741296875*^9, 
   3.5318528305*^9, 3.531852888265625*^9, 3.531852950953125*^9, 
   3.531853088328125*^9, 3.531853142921875*^9, 3.531853280265625*^9, 
   3.531853355734375*^9, 3.531853422140625*^9, 3.531853472625*^9, 
   3.531853531203125*^9, 3.531853675390625*^9, 3.53185378290625*^9, 
   3.53185399484375*^9, {3.531854131703125*^9, 3.531854159546875*^9}, 
   3.53185424634375*^9, 3.53185428559375*^9, 3.53185437171875*^9, 
   3.53185447875*^9, 3.531854542078125*^9, 3.53185503221875*^9, 
   3.531857044078125*^9, 3.532106955953125*^9, 3.53415861840625*^9, {
   3.534167502078125*^9, 3.534167522515625*^9}, 3.534167634234375*^9, 
   3.53416781953125*^9, 3.53416789753125*^9, 3.53417433796875*^9, 
   3.534218559078125*^9, 3.534218605640625*^9, 3.534218786015625*^9, 
   3.534229539765625*^9, 3.534230358890625*^9, 3.534230707828125*^9, 
   3.534415272625*^9, 3.53441901021875*^9, 3.53441951625*^9, 
   3.53443740378125*^9, 3.534437688421875*^9, 3.534438104796875*^9, 
   3.534485691078125*^9, 3.5344860845625*^9, 3.534486151921875*^9, 
   3.5382144519231777`*^9, 3.53822002595935*^9, 3.538221590228257*^9, 
   3.5382218835526276`*^9, {3.5382221902674513`*^9, 3.5382221959236293`*^9}, 
   3.538222506244102*^9, 3.5382228750281134`*^9, 3.5382232343689575`*^9, 
   3.5382236250670815`*^9, 3.538236870015625*^9, 3.53823704721875*^9, 
   3.538281760858375*^9, 3.5382833452571754`*^9, 3.5382841953164544`*^9, 
   3.538284308706354*^9, 3.5382850871701217`*^9, 3.5382882714584017`*^9, 
   3.538289062630974*^9, 3.538289949588022*^9, 3.538395138466488*^9, 
   3.53839539666796*^9, 3.538395596885429*^9, 3.5384803265665193`*^9, 
   3.5385034218125*^9, 3.5385036891875*^9, 3.538503780890625*^9, 
   3.53872122979788*^9, 3.538722697041375*^9, 3.538803566152128*^9, 
   3.5388059204177074`*^9, 3.538806169822361*^9, 3.538829638285613*^9, 
   3.538831858029828*^9, 3.53893013409375*^9, 3.538977553130209*^9, 
   3.5389930375904565`*^9, 3.539011399952375*^9, 3.539012271577375*^9, 
   3.539016056327375*^9, 3.5411477852107596`*^9, 3.5411478970843277`*^9, 
   3.541154666280614*^9, 3.541157081772559*^9, 3.548386345120402*^9, 
   3.5483863845624447`*^9, {3.5547979045625*^9, 3.554797919625*^9}, 
   3.555661928868376*^9, 3.556248973631954*^9, 3.5562493083545675`*^9, 
   3.556249552730483*^9, 3.556276471433693*^9, 3.556276590399397*^9, 
   3.556296178359375*^9, 3.556296286953125*^9, 3.5679439664806786`*^9, 
   3.56800177191671*^9, 3.5680020190314193`*^9, 3.568002884789572*^9, 
   3.5680031042045717`*^9, 3.5680284845284786`*^9, 3.5680300182098317`*^9, 
   3.568031178196819*^9, 3.5681289880022163`*^9, 3.5681291553117857`*^9, 
   3.568129185961539*^9, 3.5681293002340746`*^9, 3.5681433270945544`*^9, 
   3.568143541328808*^9, 3.568143647281868*^9, 3.568143846574267*^9, 
   3.568144039934326*^9, 3.5681466428852067`*^9, 3.568146673458956*^9, 
   3.5681488359526434`*^9, 3.5681497067234488`*^9, 3.568150127689526*^9, 
   3.568182566164813*^9, 3.568184046078681*^9, 3.5681846864513083`*^9, 
   3.5681850905564218`*^9, 3.5681859465823836`*^9, 3.5681863907287874`*^9, 
   3.568226345398782*^9, 3.5682264172548914`*^9, 3.5682265432440977`*^9, 
   3.5682290907638073`*^9, 3.5682295859811325`*^9, 3.568229694388333*^9, 
   3.573162833901249*^9, 3.5731648928950167`*^9, 3.5732037689310713`*^9, 
   3.5732053390618773`*^9, 3.573243782878894*^9, 3.5732443429789295`*^9, 
   3.573244437471334*^9, 3.5769200958997536`*^9, 3.5769202205622187`*^9, 
   3.577292863420192*^9, 3.5772931234590654`*^9, 3.577451901954363*^9, 
   3.57916050863797*^9, 3.5907470227081375`*^9, 3.5907470880286865`*^9, 
   3.5907471209151917`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Assembling all the rudder forces and aerodynamic stiffnesses", \
"Subsubsection"],

Cell["Roll damping term", "Text"],

Cell[BoxData[
 RowBox[{
  SubscriptBox[
   SubscriptBox["M", 
    OverscriptBox[
     RowBox[{"\[EmptySet]", " "}], "."]], "expr"], " ", ":=", "0"}]], "Input",\

 CellChangeTimes->{3.5681433939403777`*^9}],

Cell[BoxData[
 RowBox[{
  SubscriptBox["M", 
   OverscriptBox[
    RowBox[{"\[EmptySet]", " "}], "."]], " ", ":=", " ", "0"}]], "Input",
 CellChangeTimes->{3.5681433964765224`*^9}],

Cell[BoxData[
 RowBox[{
  SubscriptBox["M1", 
   OverscriptBox[
    RowBox[{"\[EmptySet]", " "}], "."]], " ", ":=", " ", "0"}]], "Input",
 CellChangeTimes->{{3.53444083075*^9, 3.53444083896875*^9}, 
   3.5681433994426928`*^9}],

Cell[BoxData[
 RowBox[{
  SubscriptBox["M2", 
   OverscriptBox[
    RowBox[{"\[EmptySet]", " "}], "."]], " ", ":=", "0"}]], "Input",
 CellChangeTimes->{{3.534440832171875*^9, 3.534440843859375*^9}, 
   3.5681434028038845`*^9}],

Cell["Pitch damping term", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox[
    SubscriptBox["M", 
     OverscriptBox["\[Theta]", 
      RowBox[{".", " "}]]], "expr"], ":=", " ", 
   RowBox[{"q", " ", "Sbh", " ", "CLalphabh", " ", 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"xbach", "-", "xbcg"}], ")"}], "2"], 
     RowBox[{"v", "+", "0.1"}]]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.534440790390625*^9, 3.534440791015625*^9}, {
   3.568143448585503*^9, 3.5681434824594407`*^9}, 3.5681439222305946`*^9}],

Cell[BoxData[
 RowBox[{
  SubscriptBox[
   SubscriptBox["M1", 
    OverscriptBox["\[Theta]", 
     RowBox[{".", " "}]]], "expr"], ":=", "0"}]], "Input",
 CellChangeTimes->{{3.534440811328125*^9, 3.53444081909375*^9}, 
   3.568143442097132*^9}],

Cell[BoxData[
 RowBox[{
  SubscriptBox[
   SubscriptBox["M2", 
    OverscriptBox["\[Theta]", 
     RowBox[{".", " "}]]], "expr"], ":=", "0"}]], "Input",
 CellChangeTimes->{3.534440809515625*^9, 3.568143439574988*^9}],

Cell["Yaw damping term", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox[
    SubscriptBox["M", 
     OverscriptBox["\[Psi]", "."]], 
    RowBox[{" ", "expr"}]], ":=", " ", 
   RowBox[{"q", " ", "Sbv", " ", "CLalphabv", 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"xbacv", "-", "xbcg"}], ")"}], "2"], 
     RowBox[{"v", "+", "0.1"}]]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.568143488953812*^9, 3.5681435080249033`*^9}, {
  3.5681439242287083`*^9, 3.5681439264748373`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Calculation of aerodynamic forces", "Subsubsection"],

Cell["\<\
The wing drag is a combiantion of parasitic drag and induced drag\
\>", "Text"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.518678290234375*^9, 3.518678290234375*^9}, {
   3.534481316296875*^9, 3.534481316859375*^9}, {3.5344814099375*^9, 
   3.534481410421875*^9}, {3.5344815371875*^9, 3.534481537625*^9}, {
   3.534481651828125*^9, 3.534481652234375*^9}, {3.538806117322697*^9, 
   3.5388061365725737`*^9}, 3.568149073272217*^9}],

Cell["The dynamic pressure is calculated as", "Text",
 Evaluatable->False],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["q", "expr"], " ", ":=", " ", 
   RowBox[{"rho", " ", 
    FractionBox[
     SuperscriptBox["v", "2"], "2"]}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"epsv", "=", "0.0001"}], ";"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Ube", "=", 
   RowBox[{"Ub", "+", "vturbx"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Vbe", "=", 
   RowBox[{"Vb", "+", "vturby"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Wbe", "=", 
   RowBox[{"Wb", "+", "vturbz"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Pbe", "=", 
   RowBox[{"Pb", "+", "wturbx"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Qbe", "=", 
   RowBox[{"Qb", "+", "wturby"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Rbe", "=", 
   RowBox[{"Rb", "+", "wturbz"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.5194423393125*^9, {3.522045582708578*^9, 3.5220456211974216`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["v", "expr"], "=", 
   SqrtBox[
    RowBox[{
     SuperscriptBox["Ube", "2"], "+", 
     SuperscriptBox["Vbe", "2"], "+", 
     SuperscriptBox["Wbe", "2"], "+", "epsv"}]]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["\[Alpha]", "expr"], " ", ":=", " ", 
   RowBox[{"ArcSin", "[", 
    RowBox[{"Wbe", ",", 
     SubscriptBox["v", "expr"]}], "]"}]}], ";"}]], "Text",
 CellChangeTimes->{{3.518678491515625*^9, 3.518678514734375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["\[Alpha]", "expr"], " ", ":=", " ", 
   RowBox[{"Atan2L", "[", 
    RowBox[{"Wbe", ",", 
     RowBox[{"Ube", "+", "epsv"}]}], "]"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["\[Beta]", "expr"], " ", ":=", " ", 
   RowBox[{"Atan2L", "[", 
    RowBox[{"Vbe", ",", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["Ube", "2"], "+", 
       SuperscriptBox["Wbe", "2"], "+", "epsv"}]]}], " ", "]"}]}], 
  ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["\[Beta]", "expr"], " ", ":=", " ", 
   RowBox[{"ArcSin", "[", 
    RowBox[{"Vb", "/", 
     SubscriptBox["v", "expr"]}], "]"}]}], ";", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Etkin", " ", 
     RowBox[{"(", 
      RowBox[{"4.3", ",", "3"}], ")"}]}], ",", " ", 
    RowBox[{"and", " ", "Stevens", " ", "and", " ", "Lewis", " ", 
     RowBox[{"(", 
      RowBox[{"2.3", "-", "6"}], ")"}]}]}], ")"}]}]], "Text"],

Cell["The lifts and drag are calculated from:", "Text",
 Evaluatable->False],

Cell["The lift coefficientss", "Text",
 CellChangeTimes->{3.534477326125*^9}],

Cell[BoxData[
 RowBox[{"\n", 
  RowBox[{
   RowBox[{
    RowBox[{"CNb", " ", "=", " ", 
     RowBox[{
      RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", "CLalphabh"}]}], ";"}], 
   "\n", 
   RowBox[{
    RowBox[{"CCb", " ", "=", " ", 
     RowBox[{
      RowBox[{"Sin", "[", 
       RowBox[{"-", "\[Beta]"}], "]"}], " ", "CLalphabv"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Cdib", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", "CNb"}], "+", " ", 
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"-", "\[Beta]"}], "]"}], " ", "CCb"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CTb", "=", 
     RowBox[{"Cd0b", "  ", 
      RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"-", "\[Beta]"}], "]"}]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.538806418478445*^9, 3.538806436415945*^9}, {
   3.538831622699068*^9, 3.5388316237928247`*^9}, 3.548386592684738*^9, {
   3.5681449993762035`*^9, 3.568145022523527*^9}, {3.5681826567879963`*^9, 
   3.568182684838601*^9}, {3.573162786804556*^9, 3.5731627900487413`*^9}, 
   3.573164865424446*^9, {3.5732418054867935`*^9, 3.5732418349854803`*^9}, {
   3.5732419053185034`*^9, 3.573242032003749*^9}, {3.573242312352784*^9, 
   3.5732423587224364`*^9}, 3.5732425017376165`*^9, {3.573242670745283*^9, 
   3.573242808027135*^9}, {3.573243038128296*^9, 3.573243057449401*^9}, {
   3.573243088050152*^9, 3.573243160480294*^9}, {3.5732432929758725`*^9, 
   3.573243361098769*^9}, {3.573243572739874*^9, 3.5732435778711677`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Dragbexpr", ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"Cd0b", "+", "Cdib"}], " ", ")"}], "  ", "Sbh", " ", "q"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Liftb", ":=", 
   RowBox[{
    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "CNb", " ", "Sbh", " ", "q"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Cbody", ":=", 
   RowBox[{
    RowBox[{"Sin", "[", 
     RowBox[{"-", "\[Beta]"}], "]"}], "CCb", " ", "Sbv", " ", "q"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tforceb", ":=", 
   RowBox[{"CTb", " ", "Sbh", " ", "q"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Nforceb", ":=", 
   RowBox[{"CNb", " ", "Sbh", " ", "q"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cforceb", ":=", 
   RowBox[{"CCb", " ", "Sbv", " ", "q"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.518678260109375*^9, 3.518678260109375*^9}, {
   3.53210692278125*^9, 3.532106936453125*^9}, {3.532107825921875*^9, 
   3.532107951296875*^9}, 3.534320678484375*^9, {3.53448101940625*^9, 
   3.534481026546875*^9}, {3.5344813126875*^9, 3.534481315359375*^9}, {
   3.5344814064375*^9, 3.534481408640625*^9}, {3.53448152559375*^9, 
   3.53448153346875*^9}, {3.534481648609375*^9, 3.53448165109375*^9}, 
   3.538223075698704*^9, {3.538288944537979*^9, 3.538288968912823*^9}, {
   3.5382890143656573`*^9, 3.538289015318776*^9}, {3.5390158761555*^9, 
   3.53901589337425*^9}, {3.539015924639875*^9, 3.539015941343*^9}, 
   3.5411478835688753`*^9, {3.554797755390625*^9, 3.554797819609375*^9}, {
   3.55479785471875*^9, 3.554797857546875*^9}, {3.568149065646781*^9, 
   3.568149067522888*^9}, {3.5681842585008307`*^9, 3.5681843079216576`*^9}, 
   3.5682289991035647`*^9, {3.573242072534067*^9, 3.573242117056614*^9}, {
   3.573242179244171*^9, 3.573242212917097*^9}, {3.5732422538704395`*^9, 
   3.573242263656999*^9}, {3.5732428171716585`*^9, 3.5732428979912806`*^9}, {
   3.573243264291232*^9, 3.5732432678034325`*^9}, 3.57324337160937*^9, {
   3.5732434191700907`*^9, 3.573243454793128*^9}, {3.573243563956372*^9, 
   3.573243580629326*^9}, {3.573244421800438*^9, 3.5732444238755565`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Weight and balance", "Subsubsection"],

Cell[BoxData[
 RowBox[{
  RowBox[{"massexpr", "=", 
   RowBox[{"Me", "+", "Mfuel", "+", "Mcargo"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"xbcgexpr", " ", "=", " ", 
   RowBox[{
    FractionBox["1", "mass"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Me", " ", "xbcge"}], " ", "+", " ", 
      RowBox[{"Mfuel", " ", "xfuel"}], "+", 
      RowBox[{"Mcargo", " ", "xcargo"}]}], ")"}]}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"localExpressions", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"v", ",", 
       SubscriptBox["v", "expr"], ",", "double", ",", 
       "\"\<Abs. value of speed\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\[Alpha]", ",", 
       SubscriptBox["\[Alpha]", "expr"], ",", "double", ",", 
       "\"\<Angle of attack\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"q", ",", 
       SubscriptBox["q", "expr"], ",", "double", ",", 
       "\"\<Dynamic pressure\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\[Beta]", ",", 
       SubscriptBox["\[Beta]", "expr"], ",", "double", ",", 
       "\"\<Slip angle\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "mass", " ", ",", "massexpr", ",", "double", ",", 
       "\"\<total AC-weight\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xbcg", ",", " ", "xbcgexpr", ",", "double", ",", "\"\<AC-cg\>\""}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Dragb", ",", "Dragbexpr", ",", "double", ",", 
       "\"\<Drag from body\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["M", 
        OverscriptBox["\[Theta]", "."]], " ", ",", 
       SubscriptBox[
        SubscriptBox["M", 
         OverscriptBox["\[Theta]", 
          RowBox[{".", " "}]]], "expr"], ",", "double", ",", 
       "\"\<Damping term in pitch\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["M", 
        OverscriptBox["\[Psi]", "."]], ",", 
       SubscriptBox[
        SubscriptBox["M", 
         OverscriptBox["\[Psi]", "."]], 
        RowBox[{" ", "expr"}]], ",", "double", ",", 
       "\"\<Damping term in yaw\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"Fx", ",", 
       RowBox[{"aircraft`F", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "double", ",", 
       "\"\<Force in x\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"Fy", ",", 
       RowBox[{"aircraft`F", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "double", ",", 
       "\"\<Force in y\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"Fz", ",", 
       RowBox[{"aircraft`F", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", "double", ",", 
       "\"\<Force in z\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"Lb", ",", 
       RowBox[{"aircraft`T", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "double", ",", 
       "\"\<moment on x-axis\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"Mb", ",", 
       RowBox[{"aircraft`T", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "double", ",", 
       "\"\<moment on y-axis\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"Nb", ",", 
       RowBox[{"aircraft`T", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", "double", ",", 
       "\"\<moment on z-axis\>\""}], "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.446886190291441*^9, 3.518678404671875*^9, {3.518859856015625*^9, 
   3.518859872328125*^9}, {3.519443135515625*^9, 3.51944313903125*^9}, {
   3.522041884674801*^9, 3.5220418970179977`*^9}, {3.53448132590625*^9, 
   3.53448132765625*^9}, {3.534481426109375*^9, 3.53448142834375*^9}, {
   3.53448156546875*^9, 3.534481573671875*^9}, {3.534481665765625*^9, 
   3.53448166796875*^9}, {3.5344857835625*^9, 3.53448579675*^9}, {
   3.5382217251171556`*^9, 3.538221797569353*^9}, 3.538285079529546*^9, {
   3.5382882328492737`*^9, 3.538288239583606*^9}, 3.5547974635625*^9, {
   3.556274268232908*^9, 3.556274269732975*^9}, {3.556274362877773*^9, 
   3.556274364299711*^9}, {3.556296130140625*^9, 3.55629613940625*^9}, {
   3.5563351520294237`*^9, 3.5563351536386957`*^9}, {3.56802995458747*^9, 
   3.5680299590599174`*^9}, {3.5680308610871105`*^9, 
   3.5680308747204742`*^9}, {3.568128972842349*^9, 3.5681289788146906`*^9}, {
   3.568143259378681*^9, 3.56814328208898*^9}, {3.5681436060605106`*^9, 
   3.568143607058567*^9}, {3.568149694321739*^9, 3.5681496987459917`*^9}, {
   3.568229014557449*^9, 3.568229015189485*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"aircraft`T", "[", 
  RowBox[{"[", "2", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5681849570687866`*^9, 3.568184965329259*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "Mdvtheta"}], " ", 
   RowBox[{"(", 
    RowBox[{"Qb", "+", "wturby"}], ")"}]}], "-", 
  RowBox[{"CLalphabh", " ", "qpress", " ", "Sbh", " ", 
   RowBox[{"(", 
    RowBox[{"xbach", "-", "xbcg"}], ")"}], " ", 
   RowBox[{"Sin", "[", "Alpha", "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"xbcg", "-", "xeng"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"thrustl", " ", 
      RowBox[{"Cos", "[", "thetatvcly", "]"}], " ", 
      RowBox[{"Sin", "[", "thetatvclz", "]"}]}], "+", 
     RowBox[{"thrustr", " ", 
      RowBox[{"Cos", "[", "thetatvcry", "]"}], " ", 
      RowBox[{"Sin", "[", "thetatvcrz", "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.5681849669683533`*^9, 3.568185090977446*^9, 
  3.5681859468724003`*^9, 3.5681863909808016`*^9, 3.5682263456527963`*^9, 
  3.5682264177459197`*^9, 3.5682265435331144`*^9, 3.5682290911768312`*^9, 
  3.568229586250148*^9, 3.568229694675349*^9, 3.5731628341872654`*^9, 
  3.573164893090028*^9, 3.573203769157084*^9, 3.57320533927789*^9, 
  3.5732437831759105`*^9, 3.573244343233944*^9, 3.5732444377203484`*^9, 
  3.5769200960977736`*^9, 3.576920220786241*^9, 3.5772928636812067`*^9, 
  3.5772931237090797`*^9, 3.577451902416363*^9, 3.5791605088629827`*^9, 
  3.5907470229577503`*^9, 3.590747088247098*^9, 3.5907471211492043`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"expressions", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"expressionVE", ",", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"AlphaAttack", ",", "\[Alpha]"}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"BetaSlip", ",", "\[Beta]"}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"altitude", ",", 
           RowBox[{"-", "zcg"}]}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", 
           SubscriptBox["\[Phi]", "expr"]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", 
           SubscriptBox["\[Theta]", "expr"]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"\[Psi]", ",", 
           SubscriptBox["\[Psi]", "expr"]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"gfx", ",", 
           RowBox[{"Fx", "/", "mass"}]}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"gfy", ",", 
           RowBox[{"Fy", "/", "mass"}]}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"gfz", ",", 
           RowBox[{"Fz", "/", "mass"}]}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Faz", ",", 
           RowBox[{
            RowBox[{"aircraft`aero`F", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Fax", ",", 
           RowBox[{
            RowBox[{"aircraft`aero`F", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"TEz", ",", 
           RowBox[{
            RowBox[{"engine`T", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Taz", ",", 
           RowBox[{
            RowBox[{"aircraft`aero`T", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Zxtvcly", ",", 
           RowBox[{"ktvcl", " ", "mTimestep"}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Zxtvclz", ",", 
           RowBox[{"ktvcl", " ", "mTimestep"}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Zxtvcry", ",", 
           RowBox[{"ktvcr", " ", "mTimestep"}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Zxtvcrz", ",", 
           RowBox[{"ktvcr", " ", "mTimestep"}]}], "}"}]}], 
        "\[IndentingNewLine]", "}"}]}], "}"}], ",", "1"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{
  3.52203311498798*^9, {3.5220431780326705`*^9, 3.5220431826420155`*^9}, {
   3.5341584015*^9, 3.5341584655625*^9}, {3.534166960796875*^9, 
   3.53416696490625*^9}, {3.5341677573125*^9, 3.534167795625*^9}, {
   3.5341678845*^9, 3.534167886125*^9}, {3.53421817753125*^9, 
   3.534218197328125*^9}, {3.53421835015625*^9, 3.53421835984375*^9}, {
   3.534481328171875*^9, 3.534481328828125*^9}, {3.534481429359375*^9, 
   3.534481429890625*^9}, {3.534481575296875*^9, 3.5344815770625*^9}, {
   3.5344816690625*^9, 3.534481670578125*^9}, {3.534481776171875*^9, 
   3.53448177696875*^9}, {3.53448181796875*^9, 3.534481818453125*^9}, {
   3.5382218022255435`*^9, 3.5382218243502607`*^9}, {3.5382221810488195`*^9, 
   3.5382221828144217`*^9}, {3.5382224891341796`*^9, 3.538222493962459*^9}, 
   3.5382228682937813`*^9, {3.5382232291815233`*^9, 3.5382232292596474`*^9}, {
   3.5382235913018885`*^9, 3.538223594614346*^9}, {3.538236852375*^9, 
   3.538236859453125*^9}, {3.5382833251467714`*^9, 3.5382833341784835`*^9}, {
   3.5382841205825577`*^9, 3.538284126176272*^9}, {3.538284181754041*^9, 
   3.5382841900196133`*^9}, 3.538284304300132*^9, 3.5382882673646784`*^9, 
   3.5382899397912097`*^9, {3.5383951283415527`*^9, 3.538395132779024*^9}, 
   3.538395392714861*^9, {3.5383955818855247`*^9, 3.5383955903073463`*^9}, 
   3.538480304612813*^9, 3.538502019375*^9, {3.53850339046875*^9, 
   3.53850341325*^9}, {3.5385037604375*^9, 3.538503776453125*^9}, {
   3.5388060613230553`*^9, 3.538806062979295*^9}, {3.538806155056831*^9, 
   3.5388061645098953`*^9}, {3.5388295596132345`*^9, 3.538829589769677*^9}, {
   3.56810412645602*^9, 3.5681041850188756`*^9}, 3.5681043016625385`*^9, 
   3.5681291643573027`*^9, 3.5681292875443487`*^9, {3.5732450113421574`*^9, 
   3.5732450672163534`*^9}, {3.573245200697988*^9, 3.573245205577267*^9}, {
   3.5732452755662704`*^9, 3.5732452853928328`*^9}, {3.573245349363491*^9, 
   3.573245422891697*^9}}],

Cell[CellGroupData[{

Cell[BoxData["expressions"], "Input",
 CellChangeTimes->{{3.568129269883339*^9, 3.5681292752886477`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"vx", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q0", "2"], "+", 
         SuperscriptBox["q1", "2"], "-", 
         SuperscriptBox["q2", "2"], "-", 
         SuperscriptBox["q3", "2"]}], ")"}], " ", "Ub"}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q1", " ", "q2"}], "-", 
         RowBox[{"q0", " ", "q3"}]}], ")"}], " ", "Vb"}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q0", " ", "q2"}], "+", 
         RowBox[{"q1", " ", "q3"}]}], ")"}], " ", "Wb"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"vy", ",", 
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q1", " ", "q2"}], "+", 
         RowBox[{"q0", " ", "q3"}]}], ")"}], " ", "Ub"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q0", "2"], "-", 
         SuperscriptBox["q1", "2"], "+", 
         SuperscriptBox["q2", "2"], "-", 
         SuperscriptBox["q3", "2"]}], ")"}], " ", "Vb"}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "q0"}], " ", "q1"}], "+", 
         RowBox[{"q2", " ", "q3"}]}], ")"}], " ", "Wb"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"vz", ",", 
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "q0"}], " ", "q2"}], "+", 
         RowBox[{"q1", " ", "q3"}]}], ")"}], " ", "Ub"}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q0", " ", "q1"}], "+", 
         RowBox[{"q2", " ", "q3"}]}], ")"}], " ", "Vb"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q0", "2"], "-", 
         SuperscriptBox["q1", "2"], "-", 
         SuperscriptBox["q2", "2"], "+", 
         SuperscriptBox["q3", "2"]}], ")"}], " ", "Wb"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"AlphaAttack", ",", "Alpha"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"BetaSlip", ",", "Beta"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"altitude", ",", 
     RowBox[{"-", "zcg"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Phi", ",", 
     RowBox[{"Atan2L", "[", 
      RowBox[{
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q0", " ", "q1"}], "+", 
          RowBox[{"q2", " ", "q3"}]}], ")"}]}], ",", 
       RowBox[{
        SuperscriptBox["q0", "2"], "-", 
        SuperscriptBox["q1", "2"], "-", 
        SuperscriptBox["q2", "2"], "+", 
        SuperscriptBox["q3", "2"]}]}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Thetao", ",", 
     RowBox[{"ArcSinL", "[", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q0", " ", "q2"}], "-", 
         RowBox[{"q1", " ", "q3"}]}], ")"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Psi", ",", 
     RowBox[{"Atan2L", "[", 
      RowBox[{
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q1", " ", "q2"}], "+", 
          RowBox[{"q0", " ", "q3"}]}], ")"}]}], ",", 
       RowBox[{
        SuperscriptBox["q0", "2"], "+", 
        SuperscriptBox["q1", "2"], "-", 
        SuperscriptBox["q2", "2"], "-", 
        SuperscriptBox["q3", "2"]}]}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"gfx", ",", 
     FractionBox["Fx", "mass"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"gfy", ",", 
     FractionBox["Fy", "mass"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"gfz", ",", 
     FractionBox["Fz", "mass"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Faz", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Fax", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"TEz", ",", 
     RowBox[{"xbcg", "-", "xeng"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Taz", ",", 
     RowBox[{
      RowBox[{"-", "Mdvpsi"}], " ", 
      RowBox[{"(", 
       RowBox[{"Rb", "+", "wturbz"}], ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Zxtvcly", ",", 
     RowBox[{"Ctvc", " ", "mTimestep", " ", "thrustl"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Zxtvclz", ",", 
     RowBox[{"Ctvc", " ", "mTimestep", " ", "thrustl"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Zxtvcry", ",", 
     RowBox[{"Ctvc", " ", "mTimestep", " ", "thrustl"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Zxtvcrz", ",", 
     RowBox[{"Ctvc", " ", "mTimestep", " ", "thrustl"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.5681292764237127`*^9, 3.568129300767105*^9}, 
   3.568143327562581*^9, 3.568143542147855*^9, 3.5681436479769077`*^9, 
   3.568143847133299*^9, 3.568144040784375*^9, 3.5681466433562336`*^9, 
   3.5681466739139814`*^9, 3.5681488364996743`*^9, 3.568149707298481*^9, 
   3.5681501297556443`*^9, 3.5681825665728364`*^9, 3.5681840465027056`*^9, 
   3.5681846869553375`*^9, 3.5681850910414495`*^9, 3.5681859469234033`*^9, 
   3.568186391020804*^9, 3.5682263457137995`*^9, 3.5682264178229237`*^9, 
   3.5682265435931177`*^9, 3.568229091275837*^9, 3.56822958628915*^9, 
   3.568229694721352*^9, 3.573162834226268*^9, 3.57316489312403*^9, 
   3.5732037691930857`*^9, 3.5732053393168917`*^9, 3.5732437832099123`*^9, 
   3.573244343266946*^9, 3.5732444377533503`*^9, 3.576920096129777*^9, 
   3.5769202208242445`*^9, 3.5772928637232094`*^9, 3.577293123745082*^9, 
   3.5774519024633627`*^9, 3.5791605088979845`*^9, 3.5907470229889517`*^9, 
   3.5907470882939005`*^9, 3.5907471211804056`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"expressions", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "2"}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["q0", "2"], "+", 
     SuperscriptBox["q1", "2"], "-", 
     SuperscriptBox["q2", "2"], "-", 
     SuperscriptBox["q3", "2"]}], ")"}], " ", "Ub"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"q1", " ", "q2"}], "-", 
     RowBox[{"q0", " ", "q3"}]}], ")"}], " ", "Vb"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"q0", " ", "q2"}], "+", 
     RowBox[{"q1", " ", "q3"}]}], ")"}], " ", "Wb"}]}]], "Output",
 CellChangeTimes->{
  3.534415273609375*^9, 3.53441901090625*^9, 3.5344195169375*^9, 
   3.5344374049375*^9, 3.534437689265625*^9, 3.534438105609375*^9, 
   3.534485692359375*^9, 3.534486085265625*^9, 3.5344861525*^9, 
   3.538214452485681*^9, 3.538220026271846*^9, 3.5382215904626293`*^9, 
   3.5382218837245007`*^9, {3.5382221904549494`*^9, 3.538222196314249*^9}, 
   3.5382225064159822`*^9, 3.5382228752156124`*^9, 3.5382232346970778`*^9, 
   3.5382236252858286`*^9, 3.538236870953125*^9, 3.53823704803125*^9, 
   3.53828176109275*^9, 3.538283345475937*^9, 3.538284195503953*^9, 
   3.538284308925102*^9, 3.5382850873419957`*^9, 3.5382882716615257`*^9, 
   3.538289062865347*^9, 3.5382899497286463`*^9, 3.5383951386852365`*^9, 
   3.5383953969023337`*^9, 3.5383955971041775`*^9, 3.538480326785119*^9, 
   3.53850342209375*^9, 3.5385036895*^9, 3.538503781109375*^9, 
   3.5387212300635138`*^9, 3.5387226973695*^9, 3.538803566370883*^9, 
   3.5388059205895815`*^9, 3.53880617004111*^9, 3.538829638473114*^9, 
   3.538831858248581*^9, 3.538930134828125*^9, 3.5389775533958354`*^9, 
   3.5389930383717065`*^9, 3.539011400702375*^9, 3.539012272764875*^9, 
   3.53901605774925*^9, 3.5411477854607563`*^9, 3.5411478972562003`*^9, 
   3.541154666514984*^9, 3.5411570823195424`*^9, 3.5483863454641914`*^9, 
   3.5483863847655935`*^9, {3.554797904796875*^9, 3.554797919859375*^9}, 
   3.555661929180876*^9, 3.5562489738663054`*^9, 3.5562493086199646`*^9, 
   3.5562495529491405`*^9, 3.5562764717461843`*^9, 3.5562765906962643`*^9, 
   3.5562961785625*^9, 3.556296287140625*^9, 3.567943967141716*^9, 
   3.5680017723427525`*^9, 3.568002019432459*^9, 3.568002885153572*^9, 
   3.568003104542572*^9, 3.56802848494252*^9, 3.568030018626873*^9, 
   3.568031178662865*^9, 3.5681289885892496`*^9, 3.568129156174835*^9, 
   3.5681291865325713`*^9, 3.568129300795107*^9, 3.5681433276155844`*^9, 
   3.5681435422098584`*^9, 3.5681436480069094`*^9, 3.568143847364312*^9, 
   3.568144040824377*^9, 3.5681466433842354`*^9, 3.5681466739449835`*^9, 
   3.568148836525676*^9, 3.568149707330483*^9, 3.568150129783646*^9, 
   3.5681825666098385`*^9, 3.568184046544708*^9, 3.56818468700234*^9, 
   3.568185091086452*^9, 3.5681859469614058`*^9, 3.568186391064807*^9, 
   3.568226345765803*^9, 3.5682264178939285`*^9, 3.5682265436441207`*^9, 
   3.56822909132784*^9, 3.568229586329152*^9, 3.5682296947633543`*^9, 
   3.5731628342562695`*^9, 3.5731648931490316`*^9, 3.5732037692210875`*^9, 
   3.573205339563906*^9, 3.573243783235914*^9, 3.5732443432919474`*^9, 
   3.5732444377773514`*^9, 3.576920096155779*^9, 3.5769202208502474`*^9, 
   3.5772928637542105`*^9, 3.5772931237720833`*^9, 3.577451902493363*^9, 
   3.579160508923986*^9, 3.590747023020153*^9, 3.590747088325102*^9, 
   3.590747121211607*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(delayedPart \
\[LeftDoubleBracket] \\(\\(1, 1\\)\\) \[RightDoubleBracket]\\)\[NoBreak] is \
longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.534167636609375*^9, 3.53416782103125*^9, 3.53416789896875*^9, 
   3.5341743394375*^9, 3.534218560546875*^9, 3.5342186070625*^9, 
   3.534218787484375*^9, 3.534229540890625*^9, 3.5342303595625*^9, 
   3.53423071253125*^9, 3.5344152744375*^9, 3.53441901171875*^9, 
   3.534419517765625*^9, 3.534437406359375*^9, 3.5344376901875*^9, 
   3.53443810790625*^9, 3.53448569315625*^9, 3.534486086078125*^9, 
   3.53448615328125*^9, 3.5382144526575575`*^9, 3.538220026537468*^9, 
   3.538221590634502*^9, 3.5382218838963733`*^9, {3.538222190626822*^9, 
   3.538222196501747*^9}, 3.5382225066659904`*^9, 3.538222875387486*^9, 
   3.538223234868951*^9, 3.538223625457701*^9, 3.5382368713125*^9, 
   3.538237049171875*^9, 3.538281761264625*^9, 3.5382833456478205`*^9, 
   3.538284195675827*^9, 3.5382843090813513`*^9, 3.5382850875138693`*^9, 
   3.538288271817775*^9, 3.538289063037221*^9, 3.5382899498848953`*^9, 
   3.538395138997734*^9, 3.5383953970742073`*^9, 3.5383955973073015`*^9, 
   3.538480327019334*^9, 3.538503422265625*^9, 3.538503689734375*^9, 
   3.538503781265625*^9, 3.538721230469777*^9, 3.538722697557*^9, 
   3.5388035668240166`*^9, 3.5388059207614555`*^9, 3.5388061702129836`*^9, 
   3.538829638957492*^9, 3.5388318584204583`*^9, 3.538930136375*^9, 
   3.538977553598962*^9, 3.5389930386060815`*^9, 3.539011402077375*^9, 
   3.539012273608625*^9, 3.5390160585305*^9, 3.5411477859919996`*^9, 
   3.541147897428073*^9, 3.5411546667024803`*^9, 3.541157082522708*^9, 
   3.5483863457767277`*^9, 3.5483863849374886`*^9, {3.554797905359375*^9, 
   3.55479792003125*^9}, 3.555661929712126*^9, 3.5562489749443197`*^9, 
   3.5562493090727005`*^9, 3.5562495531365614`*^9, 3.5562764719180555`*^9, 
   3.5562765908368855`*^9, 3.556296178703125*^9, 3.55629628728125*^9, 
   3.5679439672687235`*^9, 3.568001772456764*^9, 3.5680020195344696`*^9, 
   3.568002885260572*^9, 3.568003104648572*^9, 3.5680284850455303`*^9, 
   3.5680300187388844`*^9, 3.5680311788248816`*^9, 3.5681289887392583`*^9, 
   3.5681291563228436`*^9, 3.56812918668058*^9, 3.568129300933115*^9, 
   3.5681433277825937`*^9, 3.5681435423698673`*^9, 3.568143648243923*^9, 
   3.56814384749932*^9, 3.568144041005388*^9, 3.568146643514243*^9, 
   3.5681466740809913`*^9, 3.5681488366596837`*^9, 3.568149707469491*^9, 
   3.5681501301276655`*^9, 3.5681825667408457`*^9, 3.5681840466967163`*^9, 
   3.5681846871373477`*^9, 3.5681850912454615`*^9, 3.568185947116414*^9, 
   3.5681863912018147`*^9, 3.5682263460748205`*^9, 3.5682264180599375`*^9, 
   3.568226543950138*^9, 3.568229091468848*^9, 3.5682295864721603`*^9, 
   3.5682296949203634`*^9, 3.5731628344602814`*^9, 3.573164893271038*^9, 
   3.573203769348095*^9, 3.5732053397649174`*^9, 3.573243783358921*^9, 
   3.573244343414954*^9, 3.5732444378993587`*^9, 3.576920096243788*^9, 
   3.576920220943257*^9, 3.577292863888219*^9, 3.5772931238750887`*^9, 
   3.5774519025873632`*^9, 3.5791605090329924`*^9, 3.590747023113758*^9, 
   3.590747088418707*^9, 3.590747121289611*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(xcg \
\[LeftDoubleBracket] 1 \[RightDoubleBracket]\\)\[NoBreak] is longer than \
depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\
\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.534167636609375*^9, 3.53416782103125*^9, 3.53416789896875*^9, 
   3.5341743394375*^9, 3.534218560546875*^9, 3.5342186070625*^9, 
   3.534218787484375*^9, 3.534229540890625*^9, 3.5342303595625*^9, 
   3.53423071253125*^9, 3.5344152744375*^9, 3.53441901171875*^9, 
   3.534419517765625*^9, 3.534437406359375*^9, 3.5344376901875*^9, 
   3.53443810790625*^9, 3.53448569315625*^9, 3.534486086078125*^9, 
   3.53448615328125*^9, 3.5382144526575575`*^9, 3.538220026537468*^9, 
   3.538221590634502*^9, 3.5382218838963733`*^9, {3.538222190626822*^9, 
   3.538222196501747*^9}, 3.5382225066659904`*^9, 3.538222875387486*^9, 
   3.538223234868951*^9, 3.538223625457701*^9, 3.5382368713125*^9, 
   3.538237049171875*^9, 3.538281761264625*^9, 3.5382833456478205`*^9, 
   3.538284195675827*^9, 3.5382843090813513`*^9, 3.5382850875138693`*^9, 
   3.538288271817775*^9, 3.538289063037221*^9, 3.5382899498848953`*^9, 
   3.538395138997734*^9, 3.5383953970742073`*^9, 3.5383955973073015`*^9, 
   3.538480327019334*^9, 3.538503422265625*^9, 3.538503689734375*^9, 
   3.538503781265625*^9, 3.538721230469777*^9, 3.538722697557*^9, 
   3.5388035668240166`*^9, 3.5388059207614555`*^9, 3.5388061702129836`*^9, 
   3.538829638957492*^9, 3.5388318584204583`*^9, 3.538930136375*^9, 
   3.538977553598962*^9, 3.5389930386060815`*^9, 3.539011402077375*^9, 
   3.539012273608625*^9, 3.5390160585305*^9, 3.5411477859919996`*^9, 
   3.541147897428073*^9, 3.5411546667024803`*^9, 3.541157082522708*^9, 
   3.5483863457767277`*^9, 3.5483863849374886`*^9, {3.554797905359375*^9, 
   3.55479792003125*^9}, 3.555661929712126*^9, 3.5562489749443197`*^9, 
   3.5562493090727005`*^9, 3.5562495531365614`*^9, 3.5562764719180555`*^9, 
   3.5562765908368855`*^9, 3.556296178703125*^9, 3.55629628728125*^9, 
   3.5679439672687235`*^9, 3.568001772456764*^9, 3.5680020195344696`*^9, 
   3.568002885260572*^9, 3.568003104648572*^9, 3.5680284850455303`*^9, 
   3.5680300187388844`*^9, 3.5680311788248816`*^9, 3.5681289887392583`*^9, 
   3.5681291563228436`*^9, 3.56812918668058*^9, 3.568129300933115*^9, 
   3.5681433277825937`*^9, 3.5681435423698673`*^9, 3.568143648243923*^9, 
   3.56814384749932*^9, 3.568144041005388*^9, 3.568146643514243*^9, 
   3.5681466740809913`*^9, 3.5681488366596837`*^9, 3.568149707469491*^9, 
   3.5681501301276655`*^9, 3.5681825667408457`*^9, 3.5681840466967163`*^9, 
   3.5681846871373477`*^9, 3.5681850912454615`*^9, 3.568185947116414*^9, 
   3.5681863912018147`*^9, 3.5682263460748205`*^9, 3.5682264180599375`*^9, 
   3.568226543950138*^9, 3.568229091468848*^9, 3.5682295864721603`*^9, 
   3.5682296949203634`*^9, 3.5731628344602814`*^9, 3.573164893271038*^9, 
   3.573203769348095*^9, 3.5732053397649174`*^9, 3.573243783358921*^9, 
   3.573244343414954*^9, 3.5732444378993587`*^9, 3.576920096243788*^9, 
   3.576920220943257*^9, 3.577292863888219*^9, 3.5772931238750887`*^9, 
   3.5774519025873632`*^9, 3.5791605090329924`*^9, 3.590747023113758*^9, 
   3.590747088418707*^9, 3.590747121305212*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(0.` \
\[LeftDoubleBracket] 1 \[RightDoubleBracket]\\)\[NoBreak] is longer than \
depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\
\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.534167636609375*^9, 3.53416782103125*^9, 3.53416789896875*^9, 
   3.5341743394375*^9, 3.534218560546875*^9, 3.5342186070625*^9, 
   3.534218787484375*^9, 3.534229540890625*^9, 3.5342303595625*^9, 
   3.53423071253125*^9, 3.5344152744375*^9, 3.53441901171875*^9, 
   3.534419517765625*^9, 3.534437406359375*^9, 3.5344376901875*^9, 
   3.53443810790625*^9, 3.53448569315625*^9, 3.534486086078125*^9, 
   3.53448615328125*^9, 3.5382144526575575`*^9, 3.538220026537468*^9, 
   3.538221590634502*^9, 3.5382218838963733`*^9, {3.538222190626822*^9, 
   3.538222196501747*^9}, 3.5382225066659904`*^9, 3.538222875387486*^9, 
   3.538223234868951*^9, 3.538223625457701*^9, 3.5382368713125*^9, 
   3.538237049171875*^9, 3.538281761264625*^9, 3.5382833456478205`*^9, 
   3.538284195675827*^9, 3.5382843090813513`*^9, 3.5382850875138693`*^9, 
   3.538288271817775*^9, 3.538289063037221*^9, 3.5382899498848953`*^9, 
   3.538395138997734*^9, 3.5383953970742073`*^9, 3.5383955973073015`*^9, 
   3.538480327019334*^9, 3.538503422265625*^9, 3.538503689734375*^9, 
   3.538503781265625*^9, 3.538721230469777*^9, 3.538722697557*^9, 
   3.5388035668240166`*^9, 3.5388059207614555`*^9, 3.5388061702129836`*^9, 
   3.538829638957492*^9, 3.5388318584204583`*^9, 3.538930136375*^9, 
   3.538977553598962*^9, 3.5389930386060815`*^9, 3.539011402077375*^9, 
   3.539012273608625*^9, 3.5390160585305*^9, 3.5411477859919996`*^9, 
   3.541147897428073*^9, 3.5411546667024803`*^9, 3.541157082522708*^9, 
   3.5483863457767277`*^9, 3.5483863849374886`*^9, {3.554797905359375*^9, 
   3.55479792003125*^9}, 3.555661929712126*^9, 3.5562489749443197`*^9, 
   3.5562493090727005`*^9, 3.5562495531365614`*^9, 3.5562764719180555`*^9, 
   3.5562765908368855`*^9, 3.556296178703125*^9, 3.55629628728125*^9, 
   3.5679439672687235`*^9, 3.568001772456764*^9, 3.5680020195344696`*^9, 
   3.568002885260572*^9, 3.568003104648572*^9, 3.5680284850455303`*^9, 
   3.5680300187388844`*^9, 3.5680311788248816`*^9, 3.5681289887392583`*^9, 
   3.5681291563228436`*^9, 3.56812918668058*^9, 3.568129300933115*^9, 
   3.5681433277825937`*^9, 3.5681435423698673`*^9, 3.568143648243923*^9, 
   3.56814384749932*^9, 3.568144041005388*^9, 3.568146643514243*^9, 
   3.5681466740809913`*^9, 3.5681488366596837`*^9, 3.568149707469491*^9, 
   3.5681501301276655`*^9, 3.5681825667408457`*^9, 3.5681840466967163`*^9, 
   3.5681846871373477`*^9, 3.5681850912454615`*^9, 3.568185947116414*^9, 
   3.5681863912018147`*^9, 3.5682263460748205`*^9, 3.5682264180599375`*^9, 
   3.568226543950138*^9, 3.568229091468848*^9, 3.5682295864721603`*^9, 
   3.5682296949203634`*^9, 3.5731628344602814`*^9, 3.573164893271038*^9, 
   3.573203769348095*^9, 3.5732053397649174`*^9, 3.573243783358921*^9, 
   3.573244343414954*^9, 3.5732444378993587`*^9, 3.576920096243788*^9, 
   3.576920220943257*^9, 3.577292863888219*^9, 3.5772931238750887`*^9, 
   3.5774519025873632`*^9, 3.5791605090329924`*^9, 3.590747023113758*^9, 
   3.590747088418707*^9, 3.590747121305212*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Part :: \
partd\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.534167636609375*^9, 3.53416782103125*^9, 3.53416789896875*^9, 
   3.5341743394375*^9, 3.534218560546875*^9, 3.5342186070625*^9, 
   3.534218787484375*^9, 3.534229540890625*^9, 3.5342303595625*^9, 
   3.53423071253125*^9, 3.5344152744375*^9, 3.53441901171875*^9, 
   3.534419517765625*^9, 3.534437406359375*^9, 3.5344376901875*^9, 
   3.53443810790625*^9, 3.53448569315625*^9, 3.534486086078125*^9, 
   3.53448615328125*^9, 3.5382144526575575`*^9, 3.538220026537468*^9, 
   3.538221590634502*^9, 3.5382218838963733`*^9, {3.538222190626822*^9, 
   3.538222196501747*^9}, 3.5382225066659904`*^9, 3.538222875387486*^9, 
   3.538223234868951*^9, 3.538223625457701*^9, 3.5382368713125*^9, 
   3.538237049171875*^9, 3.538281761264625*^9, 3.5382833456478205`*^9, 
   3.538284195675827*^9, 3.5382843090813513`*^9, 3.5382850875138693`*^9, 
   3.538288271817775*^9, 3.538289063037221*^9, 3.5382899498848953`*^9, 
   3.538395138997734*^9, 3.5383953970742073`*^9, 3.5383955973073015`*^9, 
   3.538480327019334*^9, 3.538503422265625*^9, 3.538503689734375*^9, 
   3.538503781265625*^9, 3.538721230469777*^9, 3.538722697557*^9, 
   3.5388035668240166`*^9, 3.5388059207614555`*^9, 3.5388061702129836`*^9, 
   3.538829638957492*^9, 3.5388318584204583`*^9, 3.538930136375*^9, 
   3.538977553598962*^9, 3.5389930386060815`*^9, 3.539011402077375*^9, 
   3.539012273608625*^9, 3.5390160585305*^9, 3.5411477859919996`*^9, 
   3.541147897428073*^9, 3.5411546667024803`*^9, 3.541157082522708*^9, 
   3.5483863457767277`*^9, 3.5483863849374886`*^9, {3.554797905359375*^9, 
   3.55479792003125*^9}, 3.555661929712126*^9, 3.5562489749443197`*^9, 
   3.5562493090727005`*^9, 3.5562495531365614`*^9, 3.5562764719180555`*^9, 
   3.5562765908368855`*^9, 3.556296178703125*^9, 3.55629628728125*^9, 
   3.5679439672687235`*^9, 3.568001772456764*^9, 3.5680020195344696`*^9, 
   3.568002885260572*^9, 3.568003104648572*^9, 3.5680284850455303`*^9, 
   3.5680300187388844`*^9, 3.5680311788248816`*^9, 3.5681289887392583`*^9, 
   3.5681291563228436`*^9, 3.56812918668058*^9, 3.568129300933115*^9, 
   3.5681433277825937`*^9, 3.5681435423698673`*^9, 3.568143648243923*^9, 
   3.56814384749932*^9, 3.568144041005388*^9, 3.568146643514243*^9, 
   3.5681466740809913`*^9, 3.5681488366596837`*^9, 3.568149707469491*^9, 
   3.5681501301276655`*^9, 3.5681825667408457`*^9, 3.5681840466967163`*^9, 
   3.5681846871373477`*^9, 3.5681850912454615`*^9, 3.568185947116414*^9, 
   3.5681863912018147`*^9, 3.5682263460748205`*^9, 3.5682264180599375`*^9, 
   3.568226543950138*^9, 3.568229091468848*^9, 3.5682295864721603`*^9, 
   3.5682296949203634`*^9, 3.5731628344602814`*^9, 3.573164893271038*^9, 
   3.573203769348095*^9, 3.5732053397649174`*^9, 3.573243783358921*^9, 
   3.573244343414954*^9, 3.5732444378993587`*^9, 3.576920096243788*^9, 
   3.576920220943257*^9, 3.577292863888219*^9, 3.5772931238750887`*^9, 
   3.5774519025873632`*^9, 3.5791605090329924`*^9, 3.590747023113758*^9, 
   3.590747088418707*^9, 3.590747121305212*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partw"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part \[NoBreak]\\!\\(5\\)\[NoBreak] of \
\[NoBreak]\\!\\({Fax, 0, double, \\\"Aero force in z\\\"}\\)\[NoBreak] does \
not exist. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\
\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partw\\\", ButtonNote -> \
\\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.534167636609375*^9, 3.53416782103125*^9, 3.53416789896875*^9, 
   3.5341743394375*^9, 3.534218560546875*^9, 3.5342186070625*^9, 
   3.534218787484375*^9, 3.534229540890625*^9, 3.5342303595625*^9, 
   3.53423071253125*^9, 3.5344152744375*^9, 3.53441901171875*^9, 
   3.534419517765625*^9, 3.534437406359375*^9, 3.5344376901875*^9, 
   3.53443810790625*^9, 3.53448569315625*^9, 3.534486086078125*^9, 
   3.53448615328125*^9, 3.5382144526575575`*^9, 3.538220026537468*^9, 
   3.538221590634502*^9, 3.5382218838963733`*^9, {3.538222190626822*^9, 
   3.538222196501747*^9}, 3.5382225066659904`*^9, 3.538222875387486*^9, 
   3.538223234868951*^9, 3.538223625457701*^9, 3.5382368713125*^9, 
   3.538237049171875*^9, 3.538281761264625*^9, 3.5382833456478205`*^9, 
   3.538284195675827*^9, 3.5382843090813513`*^9, 3.5382850875138693`*^9, 
   3.538288271817775*^9, 3.538289063037221*^9, 3.5382899498848953`*^9, 
   3.538395138997734*^9, 3.5383953970742073`*^9, 3.5383955973073015`*^9, 
   3.538480327019334*^9, 3.538503422265625*^9, 3.538503689734375*^9, 
   3.538503781265625*^9, 3.538721230469777*^9, 3.538722697557*^9, 
   3.5388035668240166`*^9, 3.5388059207614555`*^9, 3.5388061702129836`*^9, 
   3.538829638957492*^9, 3.5388318584204583`*^9, 3.538930136375*^9, 
   3.538977553598962*^9, 3.5389930386060815`*^9, 3.539011402077375*^9, 
   3.539012273608625*^9, 3.5390160585305*^9, 3.5411477859919996`*^9, 
   3.541147897428073*^9, 3.5411546667024803`*^9, 3.541157082522708*^9, 
   3.5483863457767277`*^9, 3.5483863849374886`*^9, {3.554797905359375*^9, 
   3.55479792003125*^9}, 3.555661929712126*^9, 3.5562489749443197`*^9, 
   3.5562493090727005`*^9, 3.5562495531365614`*^9, 3.5562764719180555`*^9, 
   3.5562765908368855`*^9, 3.556296178703125*^9, 3.55629628728125*^9, 
   3.5679439672687235`*^9, 3.568001772456764*^9, 3.5680020195344696`*^9, 
   3.568002885260572*^9, 3.568003104648572*^9, 3.5680284850455303`*^9, 
   3.5680300187388844`*^9, 3.5680311788248816`*^9, 3.5681289887392583`*^9, 
   3.5681291563228436`*^9, 3.56812918668058*^9, 3.568129300933115*^9, 
   3.5681433277825937`*^9, 3.5681435423698673`*^9, 3.568143648243923*^9, 
   3.56814384749932*^9, 3.568144041005388*^9, 3.568146643514243*^9, 
   3.5681466740809913`*^9, 3.5681488366596837`*^9, 3.568149707469491*^9, 
   3.5681501301276655`*^9, 3.5681825667408457`*^9, 3.5681840466967163`*^9, 
   3.5681846871373477`*^9, 3.5681850912454615`*^9, 3.568185947116414*^9, 
   3.5681863912018147`*^9, 3.5682263460748205`*^9, 3.5682264180599375`*^9, 
   3.568226543950138*^9, 3.568229091468848*^9, 3.5682295864721603`*^9, 
   3.5682296949203634`*^9, 3.5731628344602814`*^9, 3.573164893271038*^9, 
   3.573203769348095*^9, 3.5732053397649174`*^9, 3.573243783358921*^9, 
   3.573244343414954*^9, 3.5732444378993587`*^9, 3.576920096243788*^9, 
   3.576920220943257*^9, 3.577292863888219*^9, 3.5772931238750887`*^9, 
   3.5774519025873632`*^9, 3.5791605090329924`*^9, 3.590747023113758*^9, 
   3.590747088418707*^9, 3.590747121617228*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partw"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part \[NoBreak]\\!\\(5\\)\[NoBreak] of \
\[NoBreak]\\!\\({Faz, 0, double, \\\"Aero force in x\\\"}\\)\[NoBreak] does \
not exist. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\
\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partw\\\", ButtonNote -> \
\\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.534167636609375*^9, 3.53416782103125*^9, 3.53416789896875*^9, 
   3.5341743394375*^9, 3.534218560546875*^9, 3.5342186070625*^9, 
   3.534218787484375*^9, 3.534229540890625*^9, 3.5342303595625*^9, 
   3.53423071253125*^9, 3.5344152744375*^9, 3.53441901171875*^9, 
   3.534419517765625*^9, 3.534437406359375*^9, 3.5344376901875*^9, 
   3.53443810790625*^9, 3.53448569315625*^9, 3.534486086078125*^9, 
   3.53448615328125*^9, 3.5382144526575575`*^9, 3.538220026537468*^9, 
   3.538221590634502*^9, 3.5382218838963733`*^9, {3.538222190626822*^9, 
   3.538222196501747*^9}, 3.5382225066659904`*^9, 3.538222875387486*^9, 
   3.538223234868951*^9, 3.538223625457701*^9, 3.5382368713125*^9, 
   3.538237049171875*^9, 3.538281761264625*^9, 3.5382833456478205`*^9, 
   3.538284195675827*^9, 3.5382843090813513`*^9, 3.5382850875138693`*^9, 
   3.538288271817775*^9, 3.538289063037221*^9, 3.5382899498848953`*^9, 
   3.538395138997734*^9, 3.5383953970742073`*^9, 3.5383955973073015`*^9, 
   3.538480327019334*^9, 3.538503422265625*^9, 3.538503689734375*^9, 
   3.538503781265625*^9, 3.538721230469777*^9, 3.538722697557*^9, 
   3.5388035668240166`*^9, 3.5388059207614555`*^9, 3.5388061702129836`*^9, 
   3.538829638957492*^9, 3.5388318584204583`*^9, 3.538930136375*^9, 
   3.538977553598962*^9, 3.5389930386060815`*^9, 3.539011402077375*^9, 
   3.539012273608625*^9, 3.5390160585305*^9, 3.5411477859919996`*^9, 
   3.541147897428073*^9, 3.5411546667024803`*^9, 3.541157082522708*^9, 
   3.5483863457767277`*^9, 3.5483863849374886`*^9, {3.554797905359375*^9, 
   3.55479792003125*^9}, 3.555661929712126*^9, 3.5562489749443197`*^9, 
   3.5562493090727005`*^9, 3.5562495531365614`*^9, 3.5562764719180555`*^9, 
   3.5562765908368855`*^9, 3.556296178703125*^9, 3.55629628728125*^9, 
   3.5679439672687235`*^9, 3.568001772456764*^9, 3.5680020195344696`*^9, 
   3.568002885260572*^9, 3.568003104648572*^9, 3.5680284850455303`*^9, 
   3.5680300187388844`*^9, 3.5680311788248816`*^9, 3.5681289887392583`*^9, 
   3.5681291563228436`*^9, 3.56812918668058*^9, 3.568129300933115*^9, 
   3.5681433277825937`*^9, 3.5681435423698673`*^9, 3.568143648243923*^9, 
   3.56814384749932*^9, 3.568144041005388*^9, 3.568146643514243*^9, 
   3.5681466740809913`*^9, 3.5681488366596837`*^9, 3.568149707469491*^9, 
   3.5681501301276655`*^9, 3.5681825667408457`*^9, 3.5681840466967163`*^9, 
   3.5681846871373477`*^9, 3.5681850912454615`*^9, 3.568185947116414*^9, 
   3.5681863912018147`*^9, 3.5682263460748205`*^9, 3.5682264180599375`*^9, 
   3.568226543950138*^9, 3.568229091468848*^9, 3.5682295864721603`*^9, 
   3.5682296949203634`*^9, 3.5731628344602814`*^9, 3.573164893271038*^9, 
   3.573203769348095*^9, 3.5732053397649174`*^9, 3.573243783358921*^9, 
   3.573244343414954*^9, 3.5732444378993587`*^9, 3.576920096243788*^9, 
   3.576920220943257*^9, 3.577292863888219*^9, 3.5772931238750887`*^9, 
   3.5774519025873632`*^9, 3.5791605090329924`*^9, 3.590747023113758*^9, 
   3.590747088418707*^9, 3.590747121617228*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "cntsList"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"modelobject\\\", \
\\(\\({\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"AeroVehicleTVC.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \[Rule] \
\\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \
\\\"AeroVehicleTVC.svg\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] 0.2`\\)\\), \\(\\(\\\"a\\\" \
\[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"Ptvcly\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \\\"0\
\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] 0.4`\\)\\), \\(\\(\\\"a\\\" \[Rule] \\\"0\
\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"Ptvclz\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] 41 \[RightSkeleton]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \
\\\"0.933333\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"1\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"Fax\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \
\\\"0.966667\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"1\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"Faz\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\
\\)\\)\\)]\\)\[NoBreak] in \
\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"hopsanobjectappearance\\\", \
\\(\\({\\(\\(\\\"\\\" \[Ellipsis] \\\"\\\"\\)\\) \[Rule] \\(\\(\\\"\\\" \
\[Ellipsis] \\\"\\\"\\)\\)}\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"modelobject\\\", \\(\\({\\(\\(\\\"typename\\\" \
\[Rule] \\\"AeroVehicleTVC\\\"\\)\\), \\(\\(\\\"displayname\\\" \[Rule] \
\\(\\(\\\"\\\" \[Ellipsis] \\\"C\\\"\\)\\)\\)\\)}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"AeroVehicleTVC.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \[Rule] \
\\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \
\\\"AeroVehicleTVC.svg\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] 0.2`\\)\\), \\(\\(\\\"a\\\" \
\[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"Ptvcly\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \\\"0\
\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] 0.4`\\)\\), \\(\\(\\\"a\\\" \[Rule] \\\"0\
\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"Ptvclz\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] 42 \[RightSkeleton]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \
\\\"0.966667\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"1\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"Faz\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\
\\)\\)\\)]\\)\\)\\)\\)]\\)\[NoBreak] is not a list of contents. The third \
item in an XMLElement must be a list of contents, even if it is an empty \
list. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::cntsList\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.534167636609375*^9, 3.53416782103125*^9, 3.53416789896875*^9, 
   3.5341743394375*^9, 3.534218560546875*^9, 3.5342186070625*^9, 
   3.534218787484375*^9, 3.534229540890625*^9, 3.5342303595625*^9, 
   3.53423071253125*^9, 3.5344152744375*^9, 3.53441901171875*^9, 
   3.534419517765625*^9, 3.534437406359375*^9, 3.5344376901875*^9, 
   3.53443810790625*^9, 3.53448569315625*^9, 3.534486086078125*^9, 
   3.53448615328125*^9, 3.5382144526575575`*^9, 3.538220026537468*^9, 
   3.538221590634502*^9, 3.5382218838963733`*^9, {3.538222190626822*^9, 
   3.538222196501747*^9}, 3.5382225066659904`*^9, 3.538222875387486*^9, 
   3.538223234868951*^9, 3.538223625457701*^9, 3.5382368713125*^9, 
   3.538237049171875*^9, 3.538281761264625*^9, 3.5382833456478205`*^9, 
   3.538284195675827*^9, 3.5382843090813513`*^9, 3.5382850875138693`*^9, 
   3.538288271817775*^9, 3.538289063037221*^9, 3.5382899498848953`*^9, 
   3.538395138997734*^9, 3.5383953970742073`*^9, 3.5383955973073015`*^9, 
   3.538480327019334*^9, 3.538503422265625*^9, 3.538503689734375*^9, 
   3.538503781265625*^9, 3.538721230469777*^9, 3.538722697557*^9, 
   3.5388035668240166`*^9, 3.5388059207614555`*^9, 3.5388061702129836`*^9, 
   3.538829638957492*^9, 3.5388318584204583`*^9, 3.538930136375*^9, 
   3.538977553598962*^9, 3.5389930386060815`*^9, 3.539011402077375*^9, 
   3.539012273608625*^9, 3.5390160585305*^9, 3.5411477859919996`*^9, 
   3.541147897428073*^9, 3.5411546667024803`*^9, 3.541157082522708*^9, 
   3.5483863457767277`*^9, 3.5483863849374886`*^9, {3.554797905359375*^9, 
   3.55479792003125*^9}, 3.555661929712126*^9, 3.5562489749443197`*^9, 
   3.5562493090727005`*^9, 3.5562495531365614`*^9, 3.5562764719180555`*^9, 
   3.5562765908368855`*^9, 3.556296178703125*^9, 3.55629628728125*^9, 
   3.5679439672687235`*^9, 3.568001772456764*^9, 3.5680020195344696`*^9, 
   3.568002885260572*^9, 3.568003104648572*^9, 3.5680284850455303`*^9, 
   3.5680300187388844`*^9, 3.5680311788248816`*^9, 3.5681289887392583`*^9, 
   3.5681291563228436`*^9, 3.56812918668058*^9, 3.568129300933115*^9, 
   3.5681433277825937`*^9, 3.5681435423698673`*^9, 3.568143648243923*^9, 
   3.56814384749932*^9, 3.568144041005388*^9, 3.568146643514243*^9, 
   3.5681466740809913`*^9, 3.5681488366596837`*^9, 3.568149707469491*^9, 
   3.5681501301276655`*^9, 3.5681825667408457`*^9, 3.5681840466967163`*^9, 
   3.5681846871373477`*^9, 3.5681850912454615`*^9, 3.568185947116414*^9, 
   3.5681863912018147`*^9, 3.5682263460748205`*^9, 3.5682264180599375`*^9, 
   3.568226543950138*^9, 3.568229091468848*^9, 3.5682295864721603`*^9, 
   3.5682296949203634`*^9, 3.5731628344602814`*^9, 3.573164893271038*^9, 
   3.573203769348095*^9, 3.5732053397649174`*^9, 3.573243783358921*^9, 
   3.573244343414954*^9, 3.5732444378993587`*^9, 3.576920096243788*^9, 
   3.576920220943257*^9, 3.577292863888219*^9, 3.5772931238750887`*^9, 
   3.5774519025873632`*^9, 3.5791605090329924`*^9, 3.590747023113758*^9, 
   3.590747088418707*^9, 3.59074712164843*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.534167636609375*^9, 3.53416782103125*^9, 3.53416789896875*^9, 
   3.5341743394375*^9, 3.534218560546875*^9, 3.5342186070625*^9, 
   3.534218787484375*^9, 3.534229540890625*^9, 3.5342303595625*^9, 
   3.53423071253125*^9, 3.5344152744375*^9, 3.53441901171875*^9, 
   3.534419517765625*^9, 3.534437406359375*^9, 3.5344376901875*^9, 
   3.53443810790625*^9, 3.53448569315625*^9, 3.534486086078125*^9, 
   3.53448615328125*^9, 3.5382144526575575`*^9, 3.538220026537468*^9, 
   3.538221590634502*^9, 3.5382218838963733`*^9, {3.538222190626822*^9, 
   3.538222196501747*^9}, 3.5382225066659904`*^9, 3.538222875387486*^9, 
   3.538223234868951*^9, 3.538223625457701*^9, 3.5382368713125*^9, 
   3.538237049171875*^9, 3.538281761264625*^9, 3.5382833456478205`*^9, 
   3.538284195675827*^9, 3.5382843090813513`*^9, 3.5382850875138693`*^9, 
   3.538288271817775*^9, 3.538289063037221*^9, 3.5382899498848953`*^9, 
   3.538395138997734*^9, 3.5383953970742073`*^9, 3.5383955973073015`*^9, 
   3.538480327019334*^9, 3.538503422265625*^9, 3.538503689734375*^9, 
   3.538503781265625*^9, 3.538721230469777*^9, 3.538722697557*^9, 
   3.5388035668240166`*^9, 3.5388059207614555`*^9, 3.5388061702129836`*^9, 
   3.538829638957492*^9, 3.5388318584204583`*^9, 3.538930136375*^9, 
   3.538977553598962*^9, 3.5389930386060815`*^9, 3.539011402077375*^9, 
   3.539012273608625*^9, 3.5390160585305*^9, 3.5411477859919996`*^9, 
   3.541147897428073*^9, 3.5411546667024803`*^9, 3.541157082522708*^9, 
   3.5483863457767277`*^9, 3.5483863849374886`*^9, {3.554797905359375*^9, 
   3.55479792003125*^9}, 3.555661929712126*^9, 3.5562489749443197`*^9, 
   3.5562493090727005`*^9, 3.5562495531365614`*^9, 3.5562764719180555`*^9, 
   3.5562765908368855`*^9, 3.556296178703125*^9, 3.55629628728125*^9, 
   3.5679439672687235`*^9, 3.568001772456764*^9, 3.5680020195344696`*^9, 
   3.568002885260572*^9, 3.568003104648572*^9, 3.5680284850455303`*^9, 
   3.5680300187388844`*^9, 3.5680311788248816`*^9, 3.5681289887392583`*^9, 
   3.5681291563228436`*^9, 3.56812918668058*^9, 3.568129300933115*^9, 
   3.5681433277825937`*^9, 3.5681435423698673`*^9, 3.568143648243923*^9, 
   3.56814384749932*^9, 3.568144041005388*^9, 3.568146643514243*^9, 
   3.5681466740809913`*^9, 3.5681488366596837`*^9, 3.568149707469491*^9, 
   3.5681501301276655`*^9, 3.5681825667408457`*^9, 3.5681840466967163`*^9, 
   3.5681846871373477`*^9, 3.5681850912454615`*^9, 3.568185947116414*^9, 
   3.5681863912018147`*^9, 3.5682263460748205`*^9, 3.5682264180599375`*^9, 
   3.568226543950138*^9, 3.568229091468848*^9, 3.5682295864721603`*^9, 
   3.5682296949203634`*^9, 3.5731628344602814`*^9, 3.573164893271038*^9, 
   3.573203769348095*^9, 3.5732053397649174`*^9, 3.573243783358921*^9, 
   3.573244343414954*^9, 3.5732444378993587`*^9, 3.576920096243788*^9, 
   3.576920220943257*^9, 3.577292863888219*^9, 3.5772931238750887`*^9, 
   3.5774519025873632`*^9, 3.5791605090329924`*^9, 3.590747023113758*^9, 
   3.590747088418707*^9, 3.59074712164843*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.2`\\)\[NoBreak] in \[NoBreak]\\!\\(\\\"y\
\\\" \[Rule] 0.2`\\)\[NoBreak] is not a valid value for an attribute in an \
XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.534167636609375*^9, 3.53416782103125*^9, 3.53416789896875*^9, 
   3.5341743394375*^9, 3.534218560546875*^9, 3.5342186070625*^9, 
   3.534218787484375*^9, 3.534229540890625*^9, 3.5342303595625*^9, 
   3.53423071253125*^9, 3.5344152744375*^9, 3.53441901171875*^9, 
   3.534419517765625*^9, 3.534437406359375*^9, 3.5344376901875*^9, 
   3.53443810790625*^9, 3.53448569315625*^9, 3.534486086078125*^9, 
   3.53448615328125*^9, 3.5382144526575575`*^9, 3.538220026537468*^9, 
   3.538221590634502*^9, 3.5382218838963733`*^9, {3.538222190626822*^9, 
   3.538222196501747*^9}, 3.5382225066659904`*^9, 3.538222875387486*^9, 
   3.538223234868951*^9, 3.538223625457701*^9, 3.5382368713125*^9, 
   3.538237049171875*^9, 3.538281761264625*^9, 3.5382833456478205`*^9, 
   3.538284195675827*^9, 3.5382843090813513`*^9, 3.5382850875138693`*^9, 
   3.538288271817775*^9, 3.538289063037221*^9, 3.5382899498848953`*^9, 
   3.538395138997734*^9, 3.5383953970742073`*^9, 3.5383955973073015`*^9, 
   3.538480327019334*^9, 3.538503422265625*^9, 3.538503689734375*^9, 
   3.538503781265625*^9, 3.538721230469777*^9, 3.538722697557*^9, 
   3.5388035668240166`*^9, 3.5388059207614555`*^9, 3.5388061702129836`*^9, 
   3.538829638957492*^9, 3.5388318584204583`*^9, 3.538930136375*^9, 
   3.538977553598962*^9, 3.5389930386060815`*^9, 3.539011402077375*^9, 
   3.539012273608625*^9, 3.5390160585305*^9, 3.5411477859919996`*^9, 
   3.541147897428073*^9, 3.5411546667024803`*^9, 3.541157082522708*^9, 
   3.5483863457767277`*^9, 3.5483863849374886`*^9, {3.554797905359375*^9, 
   3.55479792003125*^9}, 3.555661929712126*^9, 3.5562489749443197`*^9, 
   3.5562493090727005`*^9, 3.5562495531365614`*^9, 3.5562764719180555`*^9, 
   3.5562765908368855`*^9, 3.556296178703125*^9, 3.55629628728125*^9, 
   3.5679439672687235`*^9, 3.568001772456764*^9, 3.5680020195344696`*^9, 
   3.568002885260572*^9, 3.568003104648572*^9, 3.5680284850455303`*^9, 
   3.5680300187388844`*^9, 3.5680311788248816`*^9, 3.5681289887392583`*^9, 
   3.5681291563228436`*^9, 3.56812918668058*^9, 3.568129300933115*^9, 
   3.5681433277825937`*^9, 3.5681435423698673`*^9, 3.568143648243923*^9, 
   3.56814384749932*^9, 3.568144041005388*^9, 3.568146643514243*^9, 
   3.5681466740809913`*^9, 3.5681488366596837`*^9, 3.568149707469491*^9, 
   3.5681501301276655`*^9, 3.5681825667408457`*^9, 3.5681840466967163`*^9, 
   3.5681846871373477`*^9, 3.5681850912454615`*^9, 3.568185947116414*^9, 
   3.5681863912018147`*^9, 3.5682263460748205`*^9, 3.5682264180599375`*^9, 
   3.568226543950138*^9, 3.568229091468848*^9, 3.5682295864721603`*^9, 
   3.5682296949203634`*^9, 3.5731628344602814`*^9, 3.573164893271038*^9, 
   3.573203769348095*^9, 3.5732053397649174`*^9, 3.573243783358921*^9, 
   3.573244343414954*^9, 3.5732444378993587`*^9, 3.576920096243788*^9, 
   3.576920220943257*^9, 3.577292863888219*^9, 3.5772931238750887`*^9, 
   3.5774519025873632`*^9, 3.5791605090329924`*^9, 3.590747023113758*^9, 
   3.590747088418707*^9, 3.59074712164843*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.534167636609375*^9, 3.53416782103125*^9, 3.53416789896875*^9, 
   3.5341743394375*^9, 3.534218560546875*^9, 3.5342186070625*^9, 
   3.534218787484375*^9, 3.534229540890625*^9, 3.5342303595625*^9, 
   3.53423071253125*^9, 3.5344152744375*^9, 3.53441901171875*^9, 
   3.534419517765625*^9, 3.534437406359375*^9, 3.5344376901875*^9, 
   3.53443810790625*^9, 3.53448569315625*^9, 3.534486086078125*^9, 
   3.53448615328125*^9, 3.5382144526575575`*^9, 3.538220026537468*^9, 
   3.538221590634502*^9, 3.5382218838963733`*^9, {3.538222190626822*^9, 
   3.538222196501747*^9}, 3.5382225066659904`*^9, 3.538222875387486*^9, 
   3.538223234868951*^9, 3.538223625457701*^9, 3.5382368713125*^9, 
   3.538237049171875*^9, 3.538281761264625*^9, 3.5382833456478205`*^9, 
   3.538284195675827*^9, 3.5382843090813513`*^9, 3.5382850875138693`*^9, 
   3.538288271817775*^9, 3.538289063037221*^9, 3.5382899498848953`*^9, 
   3.538395138997734*^9, 3.5383953970742073`*^9, 3.5383955973073015`*^9, 
   3.538480327019334*^9, 3.538503422265625*^9, 3.538503689734375*^9, 
   3.538503781265625*^9, 3.538721230469777*^9, 3.538722697557*^9, 
   3.5388035668240166`*^9, 3.5388059207614555`*^9, 3.5388061702129836`*^9, 
   3.538829638957492*^9, 3.5388318584204583`*^9, 3.538930136375*^9, 
   3.538977553598962*^9, 3.5389930386060815`*^9, 3.539011402077375*^9, 
   3.539012273608625*^9, 3.5390160585305*^9, 3.5411477859919996`*^9, 
   3.541147897428073*^9, 3.5411546667024803`*^9, 3.541157082522708*^9, 
   3.5483863457767277`*^9, 3.5483863849374886`*^9, {3.554797905359375*^9, 
   3.55479792003125*^9}, 3.555661929712126*^9, 3.5562489749443197`*^9, 
   3.5562493090727005`*^9, 3.5562495531365614`*^9, 3.5562764719180555`*^9, 
   3.5562765908368855`*^9, 3.556296178703125*^9, 3.55629628728125*^9, 
   3.5679439672687235`*^9, 3.568001772456764*^9, 3.5680020195344696`*^9, 
   3.568002885260572*^9, 3.568003104648572*^9, 3.5680284850455303`*^9, 
   3.5680300187388844`*^9, 3.5680311788248816`*^9, 3.5681289887392583`*^9, 
   3.5681291563228436`*^9, 3.56812918668058*^9, 3.568129300933115*^9, 
   3.5681433277825937`*^9, 3.5681435423698673`*^9, 3.568143648243923*^9, 
   3.56814384749932*^9, 3.568144041005388*^9, 3.568146643514243*^9, 
   3.5681466740809913`*^9, 3.5681488366596837`*^9, 3.568149707469491*^9, 
   3.5681501301276655`*^9, 3.5681825667408457`*^9, 3.5681840466967163`*^9, 
   3.5681846871373477`*^9, 3.5681850912454615`*^9, 3.568185947116414*^9, 
   3.5681863912018147`*^9, 3.5682263460748205`*^9, 3.5682264180599375`*^9, 
   3.568226543950138*^9, 3.568229091468848*^9, 3.5682295864721603`*^9, 
   3.5682296949203634`*^9, 3.5731628344602814`*^9, 3.573164893271038*^9, 
   3.573203769348095*^9, 3.5732053397649174`*^9, 3.573243783358921*^9, 
   3.573244343414954*^9, 3.5732444378993587`*^9, 3.576920096243788*^9, 
   3.576920220943257*^9, 3.577292863888219*^9, 3.5772931238750887`*^9, 
   3.5774519025873632`*^9, 3.5791605090329924`*^9, 3.590747023113758*^9, 
   3.590747088418707*^9, 3.59074712164843*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.4`\\)\[NoBreak] in \[NoBreak]\\!\\(\\\"y\
\\\" \[Rule] 0.4`\\)\[NoBreak] is not a valid value for an attribute in an \
XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.534167636609375*^9, 3.53416782103125*^9, 3.53416789896875*^9, 
   3.5341743394375*^9, 3.534218560546875*^9, 3.5342186070625*^9, 
   3.534218787484375*^9, 3.534229540890625*^9, 3.5342303595625*^9, 
   3.53423071253125*^9, 3.5344152744375*^9, 3.53441901171875*^9, 
   3.534419517765625*^9, 3.534437406359375*^9, 3.5344376901875*^9, 
   3.53443810790625*^9, 3.53448569315625*^9, 3.534486086078125*^9, 
   3.53448615328125*^9, 3.5382144526575575`*^9, 3.538220026537468*^9, 
   3.538221590634502*^9, 3.5382218838963733`*^9, {3.538222190626822*^9, 
   3.538222196501747*^9}, 3.5382225066659904`*^9, 3.538222875387486*^9, 
   3.538223234868951*^9, 3.538223625457701*^9, 3.5382368713125*^9, 
   3.538237049171875*^9, 3.538281761264625*^9, 3.5382833456478205`*^9, 
   3.538284195675827*^9, 3.5382843090813513`*^9, 3.5382850875138693`*^9, 
   3.538288271817775*^9, 3.538289063037221*^9, 3.5382899498848953`*^9, 
   3.538395138997734*^9, 3.5383953970742073`*^9, 3.5383955973073015`*^9, 
   3.538480327019334*^9, 3.538503422265625*^9, 3.538503689734375*^9, 
   3.538503781265625*^9, 3.538721230469777*^9, 3.538722697557*^9, 
   3.5388035668240166`*^9, 3.5388059207614555`*^9, 3.5388061702129836`*^9, 
   3.538829638957492*^9, 3.5388318584204583`*^9, 3.538930136375*^9, 
   3.538977553598962*^9, 3.5389930386060815`*^9, 3.539011402077375*^9, 
   3.539012273608625*^9, 3.5390160585305*^9, 3.5411477859919996`*^9, 
   3.541147897428073*^9, 3.5411546667024803`*^9, 3.541157082522708*^9, 
   3.5483863457767277`*^9, 3.5483863849374886`*^9, {3.554797905359375*^9, 
   3.55479792003125*^9}, 3.555661929712126*^9, 3.5562489749443197`*^9, 
   3.5562493090727005`*^9, 3.5562495531365614`*^9, 3.5562764719180555`*^9, 
   3.5562765908368855`*^9, 3.556296178703125*^9, 3.55629628728125*^9, 
   3.5679439672687235`*^9, 3.568001772456764*^9, 3.5680020195344696`*^9, 
   3.568002885260572*^9, 3.568003104648572*^9, 3.5680284850455303`*^9, 
   3.5680300187388844`*^9, 3.5680311788248816`*^9, 3.5681289887392583`*^9, 
   3.5681291563228436`*^9, 3.56812918668058*^9, 3.568129300933115*^9, 
   3.5681433277825937`*^9, 3.5681435423698673`*^9, 3.568143648243923*^9, 
   3.56814384749932*^9, 3.568144041005388*^9, 3.568146643514243*^9, 
   3.5681466740809913`*^9, 3.5681488366596837`*^9, 3.568149707469491*^9, 
   3.5681501301276655`*^9, 3.5681825667408457`*^9, 3.5681840466967163`*^9, 
   3.5681846871373477`*^9, 3.5681850912454615`*^9, 3.568185947116414*^9, 
   3.5681863912018147`*^9, 3.5682263460748205`*^9, 3.5682264180599375`*^9, 
   3.568226543950138*^9, 3.568229091468848*^9, 3.5682295864721603`*^9, 
   3.5682296949203634`*^9, 3.5731628344602814`*^9, 3.573164893271038*^9, 
   3.573203769348095*^9, 3.5732053397649174`*^9, 3.573243783358921*^9, 
   3.573244343414954*^9, 3.5732444378993587`*^9, 3.576920096243788*^9, 
   3.576920220943257*^9, 3.577292863888219*^9, 3.5772931238750887`*^9, 
   3.5774519025873632`*^9, 3.5791605090329924`*^9, 3.590747023113758*^9, 
   3.590747088418707*^9, 3.59074712166403*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.534167636609375*^9, 3.53416782103125*^9, 3.53416789896875*^9, 
   3.5341743394375*^9, 3.534218560546875*^9, 3.5342186070625*^9, 
   3.534218787484375*^9, 3.534229540890625*^9, 3.5342303595625*^9, 
   3.53423071253125*^9, 3.5344152744375*^9, 3.53441901171875*^9, 
   3.534419517765625*^9, 3.534437406359375*^9, 3.5344376901875*^9, 
   3.53443810790625*^9, 3.53448569315625*^9, 3.534486086078125*^9, 
   3.53448615328125*^9, 3.5382144526575575`*^9, 3.538220026537468*^9, 
   3.538221590634502*^9, 3.5382218838963733`*^9, {3.538222190626822*^9, 
   3.538222196501747*^9}, 3.5382225066659904`*^9, 3.538222875387486*^9, 
   3.538223234868951*^9, 3.538223625457701*^9, 3.5382368713125*^9, 
   3.538237049171875*^9, 3.538281761264625*^9, 3.5382833456478205`*^9, 
   3.538284195675827*^9, 3.5382843090813513`*^9, 3.5382850875138693`*^9, 
   3.538288271817775*^9, 3.538289063037221*^9, 3.5382899498848953`*^9, 
   3.538395138997734*^9, 3.5383953970742073`*^9, 3.5383955973073015`*^9, 
   3.538480327019334*^9, 3.538503422265625*^9, 3.538503689734375*^9, 
   3.538503781265625*^9, 3.538721230469777*^9, 3.538722697557*^9, 
   3.5388035668240166`*^9, 3.5388059207614555`*^9, 3.5388061702129836`*^9, 
   3.538829638957492*^9, 3.5388318584204583`*^9, 3.538930136375*^9, 
   3.538977553598962*^9, 3.5389930386060815`*^9, 3.539011402077375*^9, 
   3.539012273608625*^9, 3.5390160585305*^9, 3.5411477859919996`*^9, 
   3.541147897428073*^9, 3.5411546667024803`*^9, 3.541157082522708*^9, 
   3.5483863457767277`*^9, 3.5483863849374886`*^9, {3.554797905359375*^9, 
   3.55479792003125*^9}, 3.555661929712126*^9, 3.5562489749443197`*^9, 
   3.5562493090727005`*^9, 3.5562495531365614`*^9, 3.5562764719180555`*^9, 
   3.5562765908368855`*^9, 3.556296178703125*^9, 3.55629628728125*^9, 
   3.5679439672687235`*^9, 3.568001772456764*^9, 3.5680020195344696`*^9, 
   3.568002885260572*^9, 3.568003104648572*^9, 3.5680284850455303`*^9, 
   3.5680300187388844`*^9, 3.5680311788248816`*^9, 3.5681289887392583`*^9, 
   3.5681291563228436`*^9, 3.56812918668058*^9, 3.568129300933115*^9, 
   3.5681433277825937`*^9, 3.5681435423698673`*^9, 3.568143648243923*^9, 
   3.56814384749932*^9, 3.568144041005388*^9, 3.568146643514243*^9, 
   3.5681466740809913`*^9, 3.5681488366596837`*^9, 3.568149707469491*^9, 
   3.5681501301276655`*^9, 3.5681825667408457`*^9, 3.5681840466967163`*^9, 
   3.5681846871373477`*^9, 3.5681850912454615`*^9, 3.568185947116414*^9, 
   3.5681863912018147`*^9, 3.5682263460748205`*^9, 3.5682264180599375`*^9, 
   3.568226543950138*^9, 3.568229091468848*^9, 3.5682295864721603`*^9, 
   3.5682296949203634`*^9, 3.5731628344602814`*^9, 3.573164893271038*^9, 
   3.573203769348095*^9, 3.5732053397649174`*^9, 3.573243783358921*^9, 
   3.573244343414954*^9, 3.5732444378993587`*^9, 3.576920096243788*^9, 
   3.576920220943257*^9, 3.577292863888219*^9, 3.5772931238750887`*^9, 
   3.5774519025873632`*^9, 3.5791605090329924`*^9, 3.590747023113758*^9, 
   3.590747088418707*^9, 3.59074712166403*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Export :: \
autofix\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.534167636609375*^9, 3.53416782103125*^9, 3.53416789896875*^9, 
   3.5341743394375*^9, 3.534218560546875*^9, 3.5342186070625*^9, 
   3.534218787484375*^9, 3.534229540890625*^9, 3.5342303595625*^9, 
   3.53423071253125*^9, 3.5344152744375*^9, 3.53441901171875*^9, 
   3.534419517765625*^9, 3.534437406359375*^9, 3.5344376901875*^9, 
   3.53443810790625*^9, 3.53448569315625*^9, 3.534486086078125*^9, 
   3.53448615328125*^9, 3.5382144526575575`*^9, 3.538220026537468*^9, 
   3.538221590634502*^9, 3.5382218838963733`*^9, {3.538222190626822*^9, 
   3.538222196501747*^9}, 3.5382225066659904`*^9, 3.538222875387486*^9, 
   3.538223234868951*^9, 3.538223625457701*^9, 3.5382368713125*^9, 
   3.538237049171875*^9, 3.538281761264625*^9, 3.5382833456478205`*^9, 
   3.538284195675827*^9, 3.5382843090813513`*^9, 3.5382850875138693`*^9, 
   3.538288271817775*^9, 3.538289063037221*^9, 3.5382899498848953`*^9, 
   3.538395138997734*^9, 3.5383953970742073`*^9, 3.5383955973073015`*^9, 
   3.538480327019334*^9, 3.538503422265625*^9, 3.538503689734375*^9, 
   3.538503781265625*^9, 3.538721230469777*^9, 3.538722697557*^9, 
   3.5388035668240166`*^9, 3.5388059207614555`*^9, 3.5388061702129836`*^9, 
   3.538829638957492*^9, 3.5388318584204583`*^9, 3.538930136375*^9, 
   3.538977553598962*^9, 3.5389930386060815`*^9, 3.539011402077375*^9, 
   3.539012273608625*^9, 3.5390160585305*^9, 3.5411477859919996`*^9, 
   3.541147897428073*^9, 3.5411546667024803`*^9, 3.541157082522708*^9, 
   3.5483863457767277`*^9, 3.5483863849374886`*^9, {3.554797905359375*^9, 
   3.55479792003125*^9}, 3.555661929712126*^9, 3.5562489749443197`*^9, 
   3.5562493090727005`*^9, 3.5562495531365614`*^9, 3.5562764719180555`*^9, 
   3.5562765908368855`*^9, 3.556296178703125*^9, 3.55629628728125*^9, 
   3.5679439672687235`*^9, 3.568001772456764*^9, 3.5680020195344696`*^9, 
   3.568002885260572*^9, 3.568003104648572*^9, 3.5680284850455303`*^9, 
   3.5680300187388844`*^9, 3.5680311788248816`*^9, 3.5681289887392583`*^9, 
   3.5681291563228436`*^9, 3.56812918668058*^9, 3.568129300933115*^9, 
   3.5681433277825937`*^9, 3.5681435423698673`*^9, 3.568143648243923*^9, 
   3.56814384749932*^9, 3.568144041005388*^9, 3.568146643514243*^9, 
   3.5681466740809913`*^9, 3.5681488366596837`*^9, 3.568149707469491*^9, 
   3.5681501301276655`*^9, 3.5681825667408457`*^9, 3.5681840466967163`*^9, 
   3.5681846871373477`*^9, 3.5681850912454615`*^9, 3.568185947116414*^9, 
   3.5681863912018147`*^9, 3.5682263460748205`*^9, 3.5682264180599375`*^9, 
   3.568226543950138*^9, 3.568229091468848*^9, 3.5682295864721603`*^9, 
   3.5682296949203634`*^9, 3.5731628344602814`*^9, 3.573164893271038*^9, 
   3.573203769348095*^9, 3.5732053397649174`*^9, 3.573243783358921*^9, 
   3.573244343414954*^9, 3.5732444378993587`*^9, 3.576920096243788*^9, 
   3.576920220943257*^9, 3.577292863888219*^9, 3.5772931238750887`*^9, 
   3.5774519025873632`*^9, 3.5791605090329924`*^9, 3.590747023113758*^9, 
   3.590747088418707*^9, 3.59074712166403*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.6000000000000001`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"y\\\" \[Rule] 0.6000000000000001`\\)\[NoBreak] is not a \
valid value for an attribute in an XMLElement. The value of the attribute \
must be a string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.534167636609375*^9, 3.53416782103125*^9, 3.53416789896875*^9, 
   3.5341743394375*^9, 3.534218560546875*^9, 3.5342186070625*^9, 
   3.534218787484375*^9, 3.534229540890625*^9, 3.5342303595625*^9, 
   3.53423071253125*^9, 3.5344152744375*^9, 3.53441901171875*^9, 
   3.534419517765625*^9, 3.534437406359375*^9, 3.5344376901875*^9, 
   3.53443810790625*^9, 3.53448569315625*^9, 3.534486086078125*^9, 
   3.53448615328125*^9, 3.5382144526575575`*^9, 3.538220026537468*^9, 
   3.538221590634502*^9, 3.5382218838963733`*^9, {3.538222190626822*^9, 
   3.538222196501747*^9}, 3.5382225066659904`*^9, 3.538222875387486*^9, 
   3.538223234868951*^9, 3.538223625457701*^9, 3.5382368713125*^9, 
   3.538237049171875*^9, 3.538281761264625*^9, 3.5382833456478205`*^9, 
   3.538284195675827*^9, 3.5382843090813513`*^9, 3.5382850875138693`*^9, 
   3.538288271817775*^9, 3.538289063037221*^9, 3.5382899498848953`*^9, 
   3.538395138997734*^9, 3.5383953970742073`*^9, 3.5383955973073015`*^9, 
   3.538480327019334*^9, 3.538503422265625*^9, 3.538503689734375*^9, 
   3.538503781265625*^9, 3.538721230469777*^9, 3.538722697557*^9, 
   3.5388035668240166`*^9, 3.5388059207614555`*^9, 3.5388061702129836`*^9, 
   3.538829638957492*^9, 3.5388318584204583`*^9, 3.538930136375*^9, 
   3.538977553598962*^9, 3.5389930386060815`*^9, 3.539011402077375*^9, 
   3.539012273608625*^9, 3.5390160585305*^9, 3.5411477859919996`*^9, 
   3.541147897428073*^9, 3.5411546667024803`*^9, 3.541157082522708*^9, 
   3.5483863457767277`*^9, 3.5483863849374886`*^9, {3.554797905359375*^9, 
   3.55479792003125*^9}, 3.555661929712126*^9, 3.5562489749443197`*^9, 
   3.5562493090727005`*^9, 3.5562495531365614`*^9, 3.5562764719180555`*^9, 
   3.5562765908368855`*^9, 3.556296178703125*^9, 3.55629628728125*^9, 
   3.5679439672687235`*^9, 3.568001772456764*^9, 3.5680020195344696`*^9, 
   3.568002885260572*^9, 3.568003104648572*^9, 3.5680284850455303`*^9, 
   3.5680300187388844`*^9, 3.5680311788248816`*^9, 3.5681289887392583`*^9, 
   3.5681291563228436`*^9, 3.56812918668058*^9, 3.568129300933115*^9, 
   3.5681433277825937`*^9, 3.5681435423698673`*^9, 3.568143648243923*^9, 
   3.56814384749932*^9, 3.568144041005388*^9, 3.568146643514243*^9, 
   3.5681466740809913`*^9, 3.5681488366596837`*^9, 3.568149707469491*^9, 
   3.5681501301276655`*^9, 3.5681825667408457`*^9, 3.5681840466967163`*^9, 
   3.5681846871373477`*^9, 3.5681850912454615`*^9, 3.568185947116414*^9, 
   3.5681863912018147`*^9, 3.5682263460748205`*^9, 3.5682264180599375`*^9, 
   3.568226543950138*^9, 3.568229091468848*^9, 3.5682295864721603`*^9, 
   3.5682296949203634`*^9, 3.5731628344602814`*^9, 3.573164893271038*^9, 
   3.573203769348095*^9, 3.5732053397649174`*^9, 3.573243783358921*^9, 
   3.573244343414954*^9, 3.5732444378993587`*^9, 3.576920096243788*^9, 
   3.576920220943257*^9, 3.577292863888219*^9, 3.5772931238750887`*^9, 
   3.5774519025873632`*^9, 3.5791605090329924`*^9, 3.590747023113758*^9, 
   3.590747088418707*^9, 3.59074712166403*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[\\(XMLElement :: attrhs\\), \
\\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.534167636609375*^9, 3.53416782103125*^9, 3.53416789896875*^9, 
   3.5341743394375*^9, 3.534218560546875*^9, 3.5342186070625*^9, 
   3.534218787484375*^9, 3.534229540890625*^9, 3.5342303595625*^9, 
   3.53423071253125*^9, 3.5344152744375*^9, 3.53441901171875*^9, 
   3.534419517765625*^9, 3.534437406359375*^9, 3.5344376901875*^9, 
   3.53443810790625*^9, 3.53448569315625*^9, 3.534486086078125*^9, 
   3.53448615328125*^9, 3.5382144526575575`*^9, 3.538220026537468*^9, 
   3.538221590634502*^9, 3.5382218838963733`*^9, {3.538222190626822*^9, 
   3.538222196501747*^9}, 3.5382225066659904`*^9, 3.538222875387486*^9, 
   3.538223234868951*^9, 3.538223625457701*^9, 3.5382368713125*^9, 
   3.538237049171875*^9, 3.538281761264625*^9, 3.5382833456478205`*^9, 
   3.538284195675827*^9, 3.5382843090813513`*^9, 3.5382850875138693`*^9, 
   3.538288271817775*^9, 3.538289063037221*^9, 3.5382899498848953`*^9, 
   3.538395138997734*^9, 3.5383953970742073`*^9, 3.5383955973073015`*^9, 
   3.538480327019334*^9, 3.538503422265625*^9, 3.538503689734375*^9, 
   3.538503781265625*^9, 3.538721230469777*^9, 3.538722697557*^9, 
   3.5388035668240166`*^9, 3.5388059207614555`*^9, 3.5388061702129836`*^9, 
   3.538829638957492*^9, 3.5388318584204583`*^9, 3.538930136375*^9, 
   3.538977553598962*^9, 3.5389930386060815`*^9, 3.539011402077375*^9, 
   3.539012273608625*^9, 3.5390160585305*^9, 3.5411477859919996`*^9, 
   3.541147897428073*^9, 3.5411546667024803`*^9, 3.541157082522708*^9, 
   3.5483863457767277`*^9, 3.5483863849374886`*^9, {3.554797905359375*^9, 
   3.55479792003125*^9}, 3.555661929712126*^9, 3.5562489749443197`*^9, 
   3.5562493090727005`*^9, 3.5562495531365614`*^9, 3.5562764719180555`*^9, 
   3.5562765908368855`*^9, 3.556296178703125*^9, 3.55629628728125*^9, 
   3.5679439672687235`*^9, 3.568001772456764*^9, 3.5680020195344696`*^9, 
   3.568002885260572*^9, 3.568003104648572*^9, 3.5680284850455303`*^9, 
   3.5680300187388844`*^9, 3.5680311788248816`*^9, 3.5681289887392583`*^9, 
   3.5681291563228436`*^9, 3.56812918668058*^9, 3.568129300933115*^9, 
   3.5681433277825937`*^9, 3.5681435423698673`*^9, 3.568143648243923*^9, 
   3.56814384749932*^9, 3.568144041005388*^9, 3.568146643514243*^9, 
   3.5681466740809913`*^9, 3.5681488366596837`*^9, 3.568149707469491*^9, 
   3.5681501301276655`*^9, 3.5681825667408457`*^9, 3.5681840466967163`*^9, 
   3.5681846871373477`*^9, 3.5681850912454615`*^9, 3.568185947116414*^9, 
   3.5681863912018147`*^9, 3.5682263460748205`*^9, 3.5682264180599375`*^9, 
   3.568226543950138*^9, 3.568229091468848*^9, 3.5682295864721603`*^9, 
   3.5682296949203634`*^9, 3.5731628344602814`*^9, 3.573164893271038*^9, 
   3.573203769348095*^9, 3.5732053397649174`*^9, 3.573243783358921*^9, 
   3.573244343414954*^9, 3.5732444378993587`*^9, 3.576920096243788*^9, 
   3.576920220943257*^9, 3.577292863888219*^9, 3.5772931238750887`*^9, 
   3.5774519025873632`*^9, 3.5791605090329924`*^9, 3.590747023113758*^9, 
   3.590747088418707*^9, 3.59074712166403*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->{},
WindowSize->{1027, 721},
WindowMargins->{{124, Automatic}, {-147, Automatic}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PrivateNotebookOptions->{"ColorPalette"->{RGBColor, 128}},
ShowCellLabel->True,
ShowCellTags->False,
RenderingOptions->{"ObjectDithering"->True,
"RasterDithering"->False},
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->FrontEnd`FileName[{"Creative"}, "PastelColor.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 115, 2, 65, "Title",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[707, 28, 96, 1, 75, "Section"],
Cell[806, 31, 146, 2, 41, "Input"],
Cell[955, 35, 124, 3, 41, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1116, 43, 122, 2, 75, "Section"],
Cell[CellGroupData[{
Cell[1263, 49, 45, 0, 36, "Subsection"],
Cell[1311, 51, 2417, 52, 182, "Input"],
Cell[3731, 105, 466, 10, 102, "Input"],
Cell[4200, 117, 1259, 32, 142, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5496, 154, 103, 1, 36, "Subsection"],
Cell[5602, 157, 130, 2, 56, "Input"],
Cell[5735, 161, 132, 2, 56, "Input"],
Cell[5870, 165, 130, 2, 56, "Input"],
Cell[6003, 169, 132, 2, 56, "Input"],
Cell[6138, 173, 126, 2, 56, "Input"],
Cell[6267, 177, 160, 3, 104, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6464, 185, 64, 1, 36, "Subsection",
 Evaluatable->False],
Cell[6531, 188, 140, 8, 101, "Text",
 Evaluatable->False]
}, Open  ]],
Cell[CellGroupData[{
Cell[6708, 201, 114, 2, 36, "Subsection",
 Evaluatable->False,
 PageBreakAbove->True],
Cell[6825, 205, 170, 4, 29, "Text",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[7020, 213, 43, 0, 27, "Subsubsection"],
Cell[7066, 215, 2365, 64, 282, "Input"],
Cell[9434, 281, 2251, 61, 282, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[11722, 347, 37, 0, 21, "Subsubsection"],
Cell[11762, 349, 167, 4, 29, "Text",
 Evaluatable->False],
Cell[11932, 355, 114, 2, 41, "Input"],
Cell[12049, 359, 452, 10, 41, "Input"],
Cell[12504, 371, 425, 10, 41, "Input"],
Cell[12932, 383, 2327, 44, 182, "Input"],
Cell[CellGroupData[{
Cell[15284, 431, 100, 1, 41, "Input"],
Cell[15387, 434, 351, 5, 40, "Output"]
}, Open  ]],
Cell[15753, 442, 40, 0, 29, "Text"],
Cell[15796, 444, 498, 15, 162, "Input"],
Cell[CellGroupData[{
Cell[16319, 463, 56, 1, 40, "Input"],
Cell[16378, 466, 4678, 67, 40, "Output"]
}, Open  ]],
Cell[21071, 536, 150, 5, 34, "Text"],
Cell[21224, 543, 371, 13, 90, "Input"],
Cell[21598, 558, 344, 10, 122, "Input"],
Cell[21945, 570, 26, 0, 41, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22008, 575, 50, 0, 27, "Subsubsection"],
Cell[22061, 577, 137, 4, 29, "Text",
 Evaluatable->False],
Cell[22201, 583, 5514, 128, 662, "Input"],
Cell[27718, 713, 159, 4, 29, "Text",
 Evaluatable->False],
Cell[27880, 719, 2545, 57, 282, "Input"],
Cell[30428, 778, 1543, 34, 142, "Input"],
Cell[31974, 814, 131, 4, 29, "Text",
 Evaluatable->False],
Cell[32108, 820, 95, 1, 29, "Text",
 Evaluatable->False],
Cell[32206, 823, 6673, 133, 462, "Input"],
Cell[38882, 958, 87, 1, 29, "Text",
 Evaluatable->False],
Cell[38972, 961, 54, 1, 41, "Input"],
Cell[39029, 964, 137, 4, 29, "Text",
 Evaluatable->False]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[39215, 974, 34, 0, 36, "Subsection"],
Cell[39252, 976, 190, 6, 29, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39479, 987, 104, 2, 37, "Subsection",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[39608, 993, 80, 2, 27, "Subsubsection",
 Evaluatable->False,
 PageBreakAbove->True],
Cell[39691, 997, 727, 23, 67, "Input"],
Cell[40421, 1022, 115, 3, 29, "Text"],
Cell[40539, 1027, 428, 15, 67, "Input"],
Cell[40970, 1044, 443, 15, 67, "Input"],
Cell[41416, 1061, 428, 15, 67, "Input"],
Cell[41847, 1078, 130, 3, 29, "Text"],
Cell[41980, 1083, 282, 9, 41, "Input"],
Cell[CellGroupData[{
Cell[42287, 1096, 91, 2, 41, "Input"],
Cell[42381, 1100, 7167, 137, 81, "Output"]
}, Open  ]],
Cell[49563, 1240, 1798, 54, 31, "DisplayFormula"],
Cell[51364, 1296, 60, 0, 29, "Text"],
Cell[51427, 1298, 114, 1, 29, "Text"],
Cell[51544, 1301, 1805, 57, 59, "EquationNumbered"],
Cell[53352, 1360, 1726, 56, 76, "Input"],
Cell[55081, 1418, 150, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[55256, 1425, 2785, 82, 191, "Input"],
Cell[58044, 1509, 3627, 90, 165, "Output"]
}, Open  ]],
Cell[61686, 1602, 132, 3, 29, "Text"],
Cell[61821, 1607, 138, 4, 41, "Input"],
Cell[CellGroupData[{
Cell[61984, 1615, 91, 2, 41, "Input"],
Cell[62078, 1619, 6940, 135, 90, "Output"]
}, Open  ]],
Cell[69033, 1757, 183, 6, 29, "Text",
 Evaluatable->False],
Cell[69219, 1765, 284, 7, 23, "DisplayFormula"],
Cell[69506, 1774, 61, 0, 29, "Text"],
Cell[69570, 1776, 177, 4, 41, "Input"],
Cell[CellGroupData[{
Cell[69772, 1784, 193, 4, 41, "Input"],
Cell[69968, 1790, 4973, 73, 43, "Output"]
}, Open  ]],
Cell[74956, 1866, 157, 5, 29, "Text"],
Cell[75116, 1873, 326, 12, 67, "Input"],
Cell[75445, 1887, 444, 16, 82, "Input"],
Cell[75892, 1905, 268, 10, 67, "Input"],
Cell[76163, 1917, 51, 0, 29, "Text"],
Cell[76217, 1919, 128, 3, 41, "Input"],
Cell[76348, 1924, 52, 0, 29, "Text"],
Cell[76403, 1926, 135, 4, 41, "Input"],
Cell[76541, 1932, 53, 0, 29, "Text"],
Cell[76597, 1934, 222, 7, 41, "Input"],
Cell[76822, 1943, 52, 0, 29, "Text"],
Cell[76877, 1945, 142, 4, 41, "Input"],
Cell[77022, 1951, 75, 0, 29, "Text"],
Cell[77100, 1953, 521, 15, 62, "Input"],
Cell[77624, 1970, 46, 0, 29, "Text"],
Cell[77673, 1972, 159, 4, 23, "DisplayFormula"],
Cell[77835, 1978, 41, 0, 29, "Text"],
Cell[77879, 1980, 125, 3, 41, "Input"],
Cell[78007, 1985, 53, 0, 29, "Text"],
Cell[78063, 1987, 160, 5, 41, "Input"],
Cell[78226, 1994, 57, 0, 29, "Text"],
Cell[78286, 1996, 132, 4, 41, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[78455, 2005, 45, 0, 27, "Subsubsection"],
Cell[78503, 2007, 73, 1, 29, "Text"],
Cell[78579, 2010, 720, 21, 57, "Input"],
Cell[79302, 2033, 77, 1, 29, "Text"],
Cell[79382, 2036, 44, 0, 29, "Text"],
Cell[79429, 2038, 200, 5, 23, "DisplayFormula"],
Cell[79632, 2045, 43, 0, 29, "Text"],
Cell[79678, 2047, 292, 10, 57, "Input"],
Cell[79973, 2059, 74, 1, 29, "Text"],
Cell[80050, 2062, 462, 13, 41, "Input"],
Cell[80515, 2077, 79, 1, 29, "Text"],
Cell[80597, 2080, 191, 6, 41, "Input"],
Cell[80791, 2088, 226, 6, 29, "Text"],
Cell[81020, 2096, 1887, 57, 183, "Input"],
Cell[82910, 2155, 139, 3, 29, "Text"],
Cell[83052, 2160, 1189, 40, 86, "Input"],
Cell[84244, 2202, 89, 2, 29, "Text"],
Cell[84336, 2206, 121, 3, 29, "Text"],
Cell[84460, 2211, 336, 10, 41, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[84833, 2226, 59, 0, 27, "Subsubsection"],
Cell[CellGroupData[{
Cell[84917, 2230, 70, 1, 41, "Input"],
Cell[84990, 2233, 7206, 141, 114, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[92233, 2379, 71, 1, 41, "Input"],
Cell[92307, 2382, 7452, 146, 132, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99796, 2533, 74, 1, 41, "Input"],
Cell[99873, 2536, 6627, 129, 136, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106537, 2670, 75, 1, 41, "Input"],
Cell[106615, 2673, 7539, 152, 99, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[114203, 2831, 55, 0, 27, "Subsubsection"],
Cell[114261, 2833, 238, 6, 41, "Input"],
Cell[114502, 2841, 102, 3, 41, "Input"],
Cell[CellGroupData[{
Cell[114629, 2848, 74, 1, 41, "Input"],
Cell[114706, 2851, 12609, 307, 373, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[127364, 3164, 134, 1, 27, "Subsubsection"],
Cell[127501, 3167, 145, 3, 29, "Text"],
Cell[127649, 3172, 347, 7, 58, "Input"],
Cell[127999, 3181, 32, 0, 29, "Text"],
Cell[128034, 3183, 136, 2, 29, "Text"],
Cell[128173, 3187, 187, 5, 29, "Text",
 Evaluatable->False],
Cell[128363, 3194, 115, 2, 41, "Input"],
Cell[128481, 3198, 89, 2, 29, "Text"],
Cell[128573, 3202, 269, 9, 41, "Input"],
Cell[128845, 3213, 43, 0, 29, "Text"],
Cell[128891, 3215, 193, 3, 41, "Input"],
Cell[129087, 3220, 281, 7, 62, "Input"],
Cell[129371, 3229, 1094, 29, 122, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[130502, 3263, 51, 1, 27, "Subsubsection"],
Cell[130556, 3266, 51, 0, 29, "Text"],
Cell[130610, 3268, 22, 0, 29, "Text"],
Cell[130635, 3270, 378, 12, 67, "Input"],
Cell[131016, 3284, 263, 7, 41, "Input"],
Cell[131282, 3293, 23, 0, 29, "Text"],
Cell[CellGroupData[{
Cell[131330, 3297, 118, 3, 44, "Input"],
Cell[131451, 3302, 502, 7, 40, "Output"]
}, Open  ]],
Cell[131968, 3312, 1027, 26, 44, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[133032, 3343, 77, 1, 27, "Subsubsection"],
Cell[133112, 3346, 56, 0, 29, "Text"],
Cell[133171, 3348, 2145, 49, 122, "Input"],
Cell[135319, 3399, 1398, 32, 122, "Input"],
Cell[136720, 3433, 180, 4, 29, "Text"],
Cell[136903, 3439, 26, 0, 41, "Input"],
Cell[136932, 3441, 527, 13, 67, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[137496, 3459, 51, 0, 27, "Subsubsection"],
Cell[137550, 3461, 49, 0, 29, "Text"],
Cell[CellGroupData[{
Cell[137624, 3465, 62, 1, 41, "Input"],
Cell[137689, 3468, 6095, 109, 117, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[143821, 3582, 69, 1, 41, "Input"],
Cell[143893, 3585, 5916, 100, 81, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[149846, 3690, 69, 1, 41, "Input"],
Cell[149918, 3693, 6219, 109, 81, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[156174, 3807, 66, 1, 41, "Input"],
Cell[156243, 3810, 6466, 113, 81, "Output"]
}, Open  ]],
Cell[162724, 3926, 135, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[162884, 3932, 66, 1, 41, "Input"],
Cell[162953, 3935, 2248, 56, 81, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[165238, 3996, 68, 1, 41, "Input"],
Cell[165309, 3999, 6852, 120, 81, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[172198, 4124, 68, 1, 41, "Input"],
Cell[172269, 4127, 7503, 140, 81, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[179821, 4273, 87, 1, 27, "Subsubsection"],
Cell[179911, 4276, 33, 0, 29, "Text"],
Cell[179947, 4278, 205, 7, 48, "Input"],
Cell[180155, 4287, 180, 5, 45, "Input"],
Cell[180338, 4294, 226, 6, 45, "Input"],
Cell[180567, 4302, 226, 6, 45, "Input"],
Cell[180796, 4310, 34, 0, 29, "Text"],
Cell[180833, 4312, 514, 14, 60, "Input"],
Cell[181350, 4328, 243, 7, 47, "Input"],
Cell[181596, 4337, 216, 6, 47, "Input"],
Cell[181815, 4345, 32, 0, 29, "Text"],
Cell[181850, 4347, 484, 14, 60, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[182371, 4366, 58, 0, 27, "Subsubsection"],
Cell[182432, 4368, 89, 2, 29, "Text"],
Cell[182524, 4372, 355, 5, 41, "Input"],
Cell[182882, 4379, 74, 1, 29, "Text",
 Evaluatable->False],
Cell[182959, 4382, 180, 6, 60, "Input"],
Cell[183142, 4390, 75, 2, 41, "Input"],
Cell[183220, 4394, 692, 20, 142, "Input"],
Cell[183915, 4416, 241, 8, 49, "Input"],
Cell[184159, 4426, 265, 7, 31, "Text"],
Cell[184427, 4435, 203, 6, 41, "Input"],
Cell[184633, 4443, 296, 10, 54, "Input"],
Cell[184932, 4455, 462, 14, 31, "Text"],
Cell[185397, 4471, 76, 1, 29, "Text",
 Evaluatable->False],
Cell[185476, 4474, 77, 1, 29, "Text"],
Cell[185556, 4477, 1596, 38, 122, "Input"],
Cell[187155, 4517, 2111, 44, 142, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[189303, 4566, 43, 0, 27, "Subsubsection"],
Cell[189349, 4568, 118, 3, 41, "Input"],
Cell[189470, 4573, 304, 9, 57, "Input"],
Cell[189777, 4584, 4372, 97, 371, "Input"],
Cell[CellGroupData[{
Cell[194174, 4685, 154, 3, 41, "Input"],
Cell[194331, 4690, 1353, 29, 60, "Output"]
}, Open  ]],
Cell[195699, 4722, 5082, 111, 402, "Input"],
Cell[CellGroupData[{
Cell[200806, 4837, 105, 1, 41, "Input"],
Cell[200914, 4840, 5600, 158, 193, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[206551, 5003, 111, 3, 41, "Input"],
Cell[206665, 5008, 3321, 58, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[210023, 5071, 63, 1, 41, "Input"],
Cell[210089, 5074, 3500, 53, 21, "Message"],
Cell[213592, 5129, 3477, 53, 21, "Message"],
Cell[217072, 5184, 3477, 53, 21, "Message"],
Cell[220552, 5239, 3496, 53, 21, "Message"],
Cell[224051, 5294, 3474, 53, 21, "Message"],
Cell[227528, 5349, 3474, 53, 21, "Message"],
Cell[231005, 5404, 6716, 99, 175, "Message"],
Cell[237724, 5505, 3425, 52, 21, "Message"],
Cell[241152, 5559, 3540, 53, 21, "Message"],
Cell[244695, 5614, 3425, 52, 21, "Message"],
Cell[248123, 5668, 3540, 53, 21, "Message"],
Cell[251666, 5723, 3425, 52, 21, "Message"],
Cell[255094, 5777, 3499, 53, 21, "Message"],
Cell[258596, 5832, 3572, 54, 21, "Message"],
Cell[262171, 5888, 3502, 53, 21, "Message"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
